Modificar Macro
Estimados expertos, me gustaría que me ayudasen a modificar esta macro.
Esta Macro tal cual esta me funciona bien para copiar los datos de una hoja a otra que se llama pendientes, pero me gustaría que solo me copiasen la celda, A1, A2, A3 y A4, ¿sería posible?
La macro es la siguiente;
Sub COPIAR()
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
Selection.EntireRow.Copy
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).PasteSpecial
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).PasteSpecial
Application.CutCopyMode = False
End If
End Sub
Sin más reciban un cordial saludo
Esta Macro tal cual esta me funciona bien para copiar los datos de una hoja a otra que se llama pendientes, pero me gustaría que solo me copiasen la celda, A1, A2, A3 y A4, ¿sería posible?
La macro es la siguiente;
Sub COPIAR()
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
Selection.EntireRow.Copy
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).PasteSpecial
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).PasteSpecial
Application.CutCopyMode = False
End If
End Sub
Sin más reciban un cordial saludo
1 Respuesta
Respuesta de parmijo
1
Como te va con esta
Sub COPIAR()
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
Rows("1:4").Select
Selection.EntireRow.Copy
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).PasteSpecial
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).PasteSpecial
Application.CutCopyMode = False
End If
End Sub
Sin más reciban un cordial saludo
Sub COPIAR()
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
Rows("1:4").Select
Selection.EntireRow.Copy
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).PasteSpecial
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).PasteSpecial
Application.CutCopyMode = False
End If
End Sub
Sin más reciban un cordial saludo
Muchísimas gracias por su ayuda, creo que me he explicado mal antes intentare dar un a explicación que usted entienda, vera con un formulario voy insertando datos en una hoja con 7 campos desde la celda A1 a la G7, ¿pero me gustaría pasar a través de la macro copiar a la pendientes solo los campos A2, B2, B3, B4, seria posible?
Una vez más gracias
Juan Manuel
Una vez más gracias
Juan Manuel
Haber si entiendo tendría que ser algo así como:
Dim Valor1 as string
Dim Valor2 as string
Dim Valor3 as string
Dim Valor4 as string
Valor1=range("A2").value
Valor2=range("b2").value
Valor3=range("b3").value
Valor4=range("b4").value
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).Value =valor1
Sheets("pendientes").Range("A" & ULT+1).Value =valor2
Sheets("pendientes").Range("A" & ULT+2).Value =valor3
Sheets("pendientes").Range("A" & ULT+3).Value =valor4
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).value =valor1
Sheets("pendientes").Range("A" & ULT+2).Value =valor2
Sheets("pendientes").Range("A" & ULT+3).Value =valor3
Sheets("pendientes").Range("A" & ULT+4).Value =valor4
Application.CutCopyMode = False
End If
End Sub
Dim Valor1 as string
Dim Valor2 as string
Dim Valor3 as string
Dim Valor4 as string
Valor1=range("A2").value
Valor2=range("b2").value
Valor3=range("b3").value
Valor4=range("b4").value
ULT = Sheets("pendientes").Range("A65536").End(xlUp).Row
If Sheets("pendientes").Range("A" & ULT).Value = Empty Then
Sheets("pendientes").Range("A" & ULT).Value =valor1
Sheets("pendientes").Range("A" & ULT+1).Value =valor2
Sheets("pendientes").Range("A" & ULT+2).Value =valor3
Sheets("pendientes").Range("A" & ULT+3).Value =valor4
Application.CutCopyMode = False
Else
Sheets("pendientes").Range("A" & ULT + 1).value =valor1
Sheets("pendientes").Range("A" & ULT+2).Value =valor2
Sheets("pendientes").Range("A" & ULT+3).Value =valor3
Sheets("pendientes").Range("A" & ULT+4).Value =valor4
Application.CutCopyMode = False
End If
End Sub
