Veri Göndermek

[ehmet]

arkadaşlar örnekte açıkladığım gibi, userformda textboxa girilen bir değerin örneğin sayfa2 L7 den sonraki ilk boş hücreye (aşağı doğru, L8, L9...) yazılmasını istiyorum, ama yapamadım,
yardımcı olursanız sevinirim.

 

[excel03]

merhaba;
Sayfa2'deki L sütununa ait sonsatır;

sonsat = Sheets("Sayfa2").Cells(65536, 12).End(3).Row

 

[ehmet]

merhaba;
Sayfa2'deki L sütununa ait sonsatır;

sonsat = Sheets("Sayfa2").Cells(65536, 12).End(3).Row

ilgine teşekkür ederim.
ama düzeltmeden sonra da, else den sonraki değerler için sayfa1 e yazdırıyor.
tam kodu yazabilir misiniz mümkünse...

 

[excel03]

merhaba;

'General/Declarations alanına
dim d
'Combo1 alanına;

Private Sub ComboBox1_Change()
d = ComboBox1.ListIndex + 1
TextBox1 = ""
TextBox1.SetFocus
End Sub

'commandbutton1 alanına;

Private Sub CommandButton1_Click()
Sayfa2.Select
sonsat = d
Cells(sonsat, "L").Offset(6, 0).Select
ActiveCell = TextBox1.Value
TextBox1 = "Diğer Ayı Giriniz"
ComboBox1.SetFocus
End Sub

yazıp dener misiniz

 

[ehmet]

merhaba;

'General/Declarations alanına
dim d
'Combo1 alanına;

Private Sub ComboBox1_Change()
d = ComboBox1.ListIndex + 1
TextBox1 = ""
TextBox1.SetFocus
End Sub

'commandbutton1 alanına;

Private Sub CommandButton1_Click()
Sayfa2.Select
sonsat = d
Cells(sonsat, "L").Offset(6, 0).Select
ActiveCell = TextBox1.Value
TextBox1 = "Diğer Ayı Giriniz"
ComboBox1.SetFocus
End Sub

yazıp dener misiniz

Selam;
Cells(sonsat, "L").Offset(6, 0).Select

satırı hata veriyor..
niye o hücreyi seçemiyoruz anlamıyorum,
ilginize teşekkürler ama olmadı yine...

 

[excel03]

merhaba;
ekli dosyayı inceleyiniz.
Sorunun ne olduğunu anlamadım,
zira kodlar sizin gönderdiğiniz çalışma kitabı üzerinde çalışıyor.

 

[ehmet]

merhaba;
ekli dosyayı inceleyiniz.
Sorunun ne olduğunu anlamadım,
zira kodlar sizin gönderdiğiniz çalışma kitabı üzerinde çalışıyor.

evet çalışıyor...
kodları aynen kopyaladım, çalıştı...
nerde ne hatası yaptım anlamadım...
teşekkürler...
peki sayfa2.select yapmasak
çünkü o zaman sayfa2ye gidiyor, oysa ana dosyada o sayfada gizlenmiş olacak tüm sayfalar gibi, başka türlü seçebilirmiyiz yada bu haliyel o zaman çalışır mı, yardımcı olabilirseniz sevinirim...
tekrar teşekkürler..

 

[excel03]

merhaba;

Private Sub CommandButton1_Click()
Sheets("Sayfa2").Cells(d, "L").Offset(6, 0).Value=TextBox1.Value
TextBox1 = "Diğer Ayı Giriniz"
ComboBox1.SetFocus
End Sub

 

[ehmet]

merhaba;

private sub commandbutton1_click()
sheets("sayfa2").cells(d, "l").offset(6, 0).value=textbox1.value
textbox1 = "diğer ayı giriniz"
combobox1.setfocus
end sub

teşekkürler hocam,
çözüldü problem emeğinize sağlık...