help me¡¡¡¡
Buenas a todos los integrantes del foro, les agradeceria que me echaran
una manito con esta macro que me esta haciendo salir canas verdes¡¡¡¡ les agradezco su ayudita de antemano quiero que esta macro me compare el valor de una celda con los valores de una columna y que me borre la fila entera si este valor esta en la tabla 2 veces(pero que me deje una de las coincidencias), pero que me diga "actualizado" si sólo hay una coincidencia Sub borrafila() Dim v As Variant Dim i As Long iRows = Cells(Rows.Count, "c").End(xlUp).Row ' detecta la ultima celda en c v = Worksheets("formato recolección datos").Range(Worksheets("formato recolección datos").["g30"]) For i = iRows To 1 Step -1 ' If Cells(i, 4) = v Then ' Cells(i, 4).EntireRow.Delete ' borra fila End If Next i End Sub |
help me¡¡¡¡
This is an English (Ingles) newsgroup. Please post your question to a
Spanish (Espanol) newsgroup. HTH Otto "MARCO6325" wrote in message ps.com... Buenas a todos los integrantes del foro, les agradeceria que me echaran una manito con esta macro que me esta haciendo salir canas verdes¡¡¡¡ les agradezco su ayudita de antemano quiero que esta macro me compare el valor de una celda con los valores de una columna y que me borre la fila entera si este valor esta en la tabla 2 veces(pero que me deje una de las coincidencias), pero que me diga "actualizado" si sólo hay una coincidencia Sub borrafila() Dim v As Variant Dim i As Long iRows = Cells(Rows.Count, "c").End(xlUp).Row ' detecta la ultima celda en c v = Worksheets("formato recolección datos").Range(Worksheets("formato recolección datos").["g30"]) For i = iRows To 1 Step -1 ' If Cells(i, 4) = v Then ' Cells(i, 4).EntireRow.Delete ' borra fila End If Next i End Sub |
All times are GMT +1. The time now is 11:57 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com