veri aktarımı için kod değişikliği...

[excelboy]

iyi akşamlar..benim aşağıda yazmış olduğum kod için şöyle bir değişiklik yapmak istiyorum...yardımcı olacak arkadaşlara şimdiden teşekkür ederim..iyi çalışmalar..

Private Sub CommandButton2_Click()
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("BF1").Range("H2:H100"))


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

End Sub


ben burada "BF1" sayfasını ,ismini combobox1 den alan bir değişken ile nasıl tanımlayıp yazabilirim acaba..birkaç denemem oldu ama başarısız..yardımcı olacak arkadaşlara iyi çalışmalar..teşekkürler..

 

[Levent Menteşoğlu]

Worksheets("BF1") yerine Worksheets(combobox1) şeklinde değiştirerek denedinizmi?

 

[excelboy]

sn leventm bey..ilginiz için saolun..denedim..birde combobox1.text dedim..ama maalesef olmadı..

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi deneyin.

Worksheets("" & combobox1)

 

[excelboy]

pardon leventm bey... :kafa: ben combobox1'i "" içine almışım..değiştirdim..şimdi çalıştı..ama bu sefer bir sonraki aşamamda bir sorun var..cözemez isem yine yardım istemek zorunda kalabilirim ..ilginize tşkürler..iyi akşamlar..