Botón de comando ejecute una macro
Tengo un macro que se copia al consultar una celda pero quiero que al darle clic al botón de comando se ejecute la macro ya que nada más copia la primer celda la macro copia de una columna a una fila esta es la macro por favor
Private Sub CommandButton1_Click()
Dim w As Worksheet
Set w = Sheets("HOJA1")
If w.Range("C3").End(xlDown).Row = 65536 Then
w.Range("C4") = Range("p4")
Else
w.Range("C" & LTrim(Str(w.Range("C3").End(xlDown).Row) + 1)) = Range("P4")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$P$4" Then
Dim w As Worksheet
Set w = Sheets("HOJA1")
x = w.Range("C3").End(xlDown).Row
If x = 65536 Then
w.Range("C4") = Range("P4")
w.Range("D4") = Range("P5")
w.Range("E4") = Range("P6")
w.Range("F4") = Range("P7")
w.Range("G4") = Range("P8")
w.Range("H4") = Range("P9")
w.Range("I4") = Range("P10")
w.Range("J4") = Range("P11")
w.Range("K4") = Range("P12")
w.Range("L4") = Range("P13")
w.Range("M4") = Date
Else
w.Range("C" & LTrim(Str(x + 1))) = Range("P4")
w.Range("D" & LTrim(Str(x + 1))) = Range("P5")
w.Range("E" & LTrim(Str(x + 1))) = Range("P6")
w.Range("F" & LTrim(Str(x + 1))) = Range("P7")
w.Range("G" & LTrim(Str(x + 1))) = Range("P8")
w.Range("H" & LTrim(Str(x + 1))) = Range("P9")
w.Range("I" & LTrim(Str(x + 1))) = Range("P10")
w.Range("J" & LTrim(Str(x + 1))) = Range("P11")
w.Range("K" & LTrim(Str(x + 1))) = Range("P12")
w.Range("L" & LTrim(Str(x + 1))) = Range("P13")
w.Range("M" & LTrim(Str(x + 1))) = Date
End If
End If
End Sub
De antemano gracias dios los bendiga hoy y siempre
Private Sub CommandButton1_Click()
Dim w As Worksheet
Set w = Sheets("HOJA1")
If w.Range("C3").End(xlDown).Row = 65536 Then
w.Range("C4") = Range("p4")
Else
w.Range("C" & LTrim(Str(w.Range("C3").End(xlDown).Row) + 1)) = Range("P4")
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$P$4" Then
Dim w As Worksheet
Set w = Sheets("HOJA1")
x = w.Range("C3").End(xlDown).Row
If x = 65536 Then
w.Range("C4") = Range("P4")
w.Range("D4") = Range("P5")
w.Range("E4") = Range("P6")
w.Range("F4") = Range("P7")
w.Range("G4") = Range("P8")
w.Range("H4") = Range("P9")
w.Range("I4") = Range("P10")
w.Range("J4") = Range("P11")
w.Range("K4") = Range("P12")
w.Range("L4") = Range("P13")
w.Range("M4") = Date
Else
w.Range("C" & LTrim(Str(x + 1))) = Range("P4")
w.Range("D" & LTrim(Str(x + 1))) = Range("P5")
w.Range("E" & LTrim(Str(x + 1))) = Range("P6")
w.Range("F" & LTrim(Str(x + 1))) = Range("P7")
w.Range("G" & LTrim(Str(x + 1))) = Range("P8")
w.Range("H" & LTrim(Str(x + 1))) = Range("P9")
w.Range("I" & LTrim(Str(x + 1))) = Range("P10")
w.Range("J" & LTrim(Str(x + 1))) = Range("P11")
w.Range("K" & LTrim(Str(x + 1))) = Range("P12")
w.Range("L" & LTrim(Str(x + 1))) = Range("P13")
w.Range("M" & LTrim(Str(x + 1))) = Date
End If
End If
End Sub
De antemano gracias dios los bendiga hoy y siempre
1 respuesta
Respuesta de Orlando Collarte
1