Enumerar consecutivo en una columna de excel
Dante buenas tardes, quisiera solicitar su apoyo, ya que adapte un código de una respuesta que aporto usted en la pregunta "Macro que vea si se cumple una condición y copie otra celda de la fila, si no que baje y re-evalúe"
Tengo la siguiente macro:
Sub ConsultaSuc()
Sheets("Base_huellas").Select
ufila = Range("C" & Rows.Count).End(xlUp).Row
col = Range("B2").Column
k = 6
Sheets("Reporte_huellas").Range("B6:D1000").Clear
For i = 2 To ufila
suc = Sheets("Reporte_huellas").Range("D4").Cells
If Cells(i, col) = suc Then
Sheets("Reporte_huellas").Range("C" & i + 4) = Sheets("Base_huellas").Range("A" & i)
Sheets("Reporte_huellas").Range("D" & i + 4) = Sheets("Base_huellas").Range("C" & i)
k = k + 1
End If
Next
Sheets("Reporte_huellas").Select
End Sub
En la fila " suc = Sheets("Reporte_huellas").Range("D4").Cells " la celda "D4" es una lista desplegable, que es la condición para copiar los datos a la otra hoja, el detalle que presenta es que cuando selecciono otro dato de la lista desplegable, cuando pega los datos en la hoja destino ya no pega los datos a partir de la fila 6, si no que a partir de la fila de donde estas los datos de origen. Otro asunto es que quiero agregar en la columna B un consecutivo iniciando del 1 en adelante hasta la ultima fila que se copie. A ver si puede ayudarme a resolver esta situación.
1 respuesta
Te anexo la macro actualizada
Sub ConsultaSuc()
'Act Por Dante Amor
Set h1 = Sheets("Base_huellas")
Set h2 = Sheets("Reporte_huellas")
h2.Rows(6 & ":" & Rows.Count).Clear
k = 6
n = 1
For i = 2 To h1.Range("C" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "B").Value = h2.Range("D4").Value Then
h2.Range("B" & k).Value = n
h2.Range("C" & k).Value = h1.Range("A" & i).Value
h2.Range("D" & k).Value = h1.Range("C" & i).Value
k = k + 1
n = n + 1
End If
Next
MsgBox "Reporte terminado"
End Sub[sal u dos. No olvides valorar la respuesta.
