Kodlarda hata

[Mahmut Bayram]

Arkadaşlar özür dilerim hitap tarzım biraz abes olmuş. Aşağıdaki kodlar da hata yaptım ve işin içinden çıkamadım bana yardım edebilir misiniz?

Sheets("KAYIT").Select
Range("A1:K18").Select
Selection.Copy
Set s1 = Sheets("KAYIT")
Set s2 = Sheets([d1] & "")
Worksheets(sht.Name).Select
Range("A1").Select
Selection.Insert Shift:=xlDown

 

[veyselemre]

userform için

Private Sub CommandButton1_Click()
Sheets("KAYIT").Select
Range("A1:K18").Select
Selection.Copy
Worksheets(ComboBox1.Text).Select
Range("A1").Select
Selection.Insert Shift:=xlDown
End Sub

Private Sub UserForm_Initialize()
Dim sht As Worksheet
For Each sht In Worksheets
ListBox1.AddItem sht.Name
ComboBox1.AddItem sht.Name
Next sht
ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Click()
Worksheets(ComboBox1.ListIndex + 1).Select
ListBox1.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ListBox1_Click()
Worksheets(ListBox1.ListIndex + 1).Select
ComboBox1.ListIndex = ListBox1.ListIndex
End Sub

 

[veyselemre]

makro için

Sub Düğme15_Tıklat()
Sheets("KAYIT").Select
Range("A1:K18").Select
Selection.Copy
Set s1 = Sheets("KAYIT")
Set s2 = Sheets([d1] & "")
s2.Select
Range("A1").Select
Selection.Insert Shift:=xlDown
End Sub

 

[Mahmut Bayram]

syn veyselemre, 'ye teşekkür ediyor ve ALLAH'a ısmarladık diyorum.