Macro para copiar celdas a a otra hoja
Necesito copiar valores de celda en el orden QUE primero y H según celda que dice NO (hoja datos) a otra hoja comenzando en A9 (hoja resumen) tengo la macro pero me copia toda la columna I desde 3 hasta 80, le los agradezco si me pueden orientar no soy bueno en esto de las macros.
H I K
valor estado cheque
8,000.00 NO 9836
5,000.00 NO
3,000.00 SI 1000
1 Respuesta
Respuesta de Adriel Ortiz Mangia
1
Sub CopiarDatos()
'Temp01
Set h1 = Sheets("Conciliación")
Set h2 = Sheets("Resumen")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
j = 9
For i = 3 To h1.Range("I" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "I") = "NO" Then
h2.Cells(j, "A") = h1.Cells(i, "H")
h2.Cells(j, "B") = h1.Cells(i, "K")
j = j + 1
End If
Next
MsgBox "Copia Finalizada"
End SubSi te muestra algún error asegúrate de haber escrito bien el nombre de las hojas, puntuar correctamente la pregunta para finalizar "VOTAR" o "EXCELENTE"
