veri aktarımında hata veren kod..

[CAHİTBAVİK]

merhaba..aşağıda yazılı olan veri aktarmak için yazdığım kodlar hata veriyor..comboboxtak1 deki seçtiğim isme göre sayfa tanımlayıp verileri oraya aktarmak istiyorum..lütfen yardımıc olacak arkadaşlara tşkür ederim

Set s1 = Sheets(ComboBox1)
NextRow = Application.WorksheetFunction.CountA(Range("b:b")) + 4
Cells(NextRow, 2) = TextBox9.Text
Cells(NextRow, 3) = TextBox4.Text
Cells(NextRow, 4) = TextBox5.Text
Cells(NextRow, 5) = TextBox6.Text
Cells(NextRow, 6) = TextBox7.Text
Cells(NextRow, 7) = TextBox8.Text
Cells(NextRow, 8) = TextBox4.Text * TextBox5.Text * TextBox6.Text * TextBox7.Text * TextBox8.Text
Cells(NextRow, 9) = WorksheetFunction.Sum(Worksheets("s1").Range("H2:H100"))


TextBox9.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""

 

[veyselemre]

Sorun istediğiniz sayfaya aktaramamak ise
Set s1 = Sheets(ComboBox1) den sonra
s1.select yazın deneyin

 

[CAHİTBAVİK]

sn veyselemre..maalesf olmadı aynı hatayı verriyor..inanın bende çok şaşırıyorum..ama bir türlü bulamıyorum..isterseniz ekte dosya göndereyim

 

[veyselemre]

Örnek dosya gönderin, inceleyelim.

 

[CAHİTBAVİK]

kod hatası

sn veyselemre..dosya ektedir.tşkürle

kısa açıklma:ben combobox1 de mesala a100 seçince mtraj sayfası aç butonuna basınca yeni bir sayfa açlıyo..daha sonra textbox bilgilerini bu ismidekisayfada ilgili yerlere aktarımını isityorum..bu comboboxta seçtiğim her isim için tekrar etmesinin istitorum..ilginize minettarım..

 

[veyselemre]

Bu metraj sayfaları her seferinde yeni boş sayfa mı olacak? Yoksa sayfa varsa üzerine mi devam edecek?

 

[CAHİTBAVİK]

bu metraj sayfaları her seferinde combobox1 de yazan isme göre (mesala a100) diye sayfa açıyor..ben bunu yaptım..mtraj sayfası aç butonu ile..benim istediğim daha sonra açılan bu isimdeki sayfalara texboxa yazdığım verileri kaydet butonuna bastığım zaman aktarması..

 

[CAHİTBAVİK]

yani yeni boş sayfa olacak(metraj sayfası nın boş hali ile)

 

[veyselemre]

Aşağıdaki iki prosedürünüzü değiştirin.
[vb:1:87bf178a7f]Private Sub CommandButton1_Click()
On Error Resume Next
Application.DisplayAlerts = False
Sheets(ComboBox1.Text).Delete
Sheets("METRAJ").Copy AFTER:=Sheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = ComboBox1.Text
If Err > 0 Then ActiveSheet.Delete
Range("b2") = ComboBox1.Text & " : " & TextBox1.Text
End Sub
Private Sub CommandButton2_Click()
Set s1 = Sheets(ComboBox1.Text)
NextRow = Application.WorksheetFunction.CountA(Range("b:b")) + 4
Cells(NextRow, 2) = TextBox9.Text
Cells(NextRow, 3) = TextBox4.Text
Cells(NextRow, 4) = TextBox5.Text
Cells(NextRow, 5) = TextBox6.Text
Cells(NextRow, 6) = TextBox7.Text
Cells(NextRow, 7) = TextBox8.Text
Cells(NextRow, 8) = TextBox4.Text * TextBox5.Text * TextBox6.Text * TextBox7.Text * TextBox8.Text
Cells(NextRow, 9) = WorksheetFunction.Sum(s1.Range("H2:H100"))
TextBox9.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub[/vb:1:87bf178a7f]