mam 2 pliki excel o nazwie "Zeszyt1" i "Zeszyt2". w "Zeszyt1" mam komórki które muszę pojedyńczo kopiować i wyfiltrować w "Zeszyt2" Jak napisać makro w którym mogę przypisać skórt np ctrl + d żeby mi to automatycznie robiło?
Sub Makro3() ' ' Makro3 Makro ' ' Klawisz skrótu: Ctrl+d ' Range("A1").Select Selection.Copy Windows("Zeszyt1.xlsm").Activate ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=1, Criteria1:="54321" Windows("Zeszyt2.xlsm").Activate End Sub
Teoretycznie każdy bąbel dyskwalifikuje oponę, ale nie mogę nie zapytać wykopowych ekspertów. Opony nie mają nawet miesiąca, ale #!$%@?łem się w dziurę tydzień temu. (╥﹏╥) Jeździć obserwować czy na śmietnik? #opony #pytanie #motoryzacja
w "Zeszyt1" mam komórki które muszę pojedyńczo kopiować i wyfiltrować w "Zeszyt2"
Jak napisać makro w którym mogę przypisać skórt np ctrl + d żeby mi to automatycznie robiło?
Sub Makro3()
'
' Makro3 Makro
'
' Klawisz skrótu: Ctrl+d
'
Range("A1").Select
Selection.Copy
Windows("Zeszyt1.xlsm").Activate
ActiveSheet.Range("$A$1:$B$7").AutoFilter Field:=1, Criteria1:="54321"
Windows("Zeszyt2.xlsm").Activate
End Sub
ww. makro wyszukuje 54321
#vba #excel