Macro para Imprimir registro
Hola quisiera conocer el código de una macro en excel, para poder buscar en una columna que contiene la fecha de registro de reservaciones (formato dd-mm-aa), todas las de un mes en especifico y copiar los datos de la fila para enviarlos a un txt.
Saludos,
1 Respuesta
Si se puede, pero tienes que tener en otra parte, puede ser otra hoja, el número y los datos que vas a reemplazar.
Te anexo una macro que lee los números a reemplazar en la hoja2
'***Macro***
Sub reemplaza()
'Por.dam
Worksheets("Hoja2").Select
ufil = ActiveCell.SpecialCells(xlLastCell).Row
For i = 2 To ufil
Worksheets("Hoja2").Select
'toma el número de la hoja2
numero = Cells(i, 1)
Range(Cells(i, 2), Cells(i, 5)).Copy
Worksheets("Hoja1").Select
Range("A:A").Select
'busca el numero en la hoja1
Set RangoObj = Selection.Find(What:=numero, _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
If Not RangoObj Is Nothing Then
'si lo encuentra reemplaza de hoja2 en hoja1
fila = RangoObj.Row
Cells(fila, 2).Select
ActiveSheet.Paste
End If
Next
End Sub
'***Macro***
Revísala y me comentas.
Saludos. Dam
