son satıra veri kaydetmek

[sametumur]

oluşturduğum userformda 1 tane combobox ve kaydet butonu var.

kaydet butonuna bastığımda combobox a girilen değeri Sayfa2 nin "H" sütununda boş satırdan başlamak üzere aşağı doğru kaydetsin

 

[Orion1]

Buyurun.

Dim sonsat As Long
sonsat = Sheets("Sayfa2").Cells(Rows.Count, "H").End(xlUp).Row + 1
Sheets("Sayfa2").Cells(sonsat, "H").Value = ComboBox1.Value

 

[sametumur]

teşekkür ederim.

 

[Orion1]

teşekkür ederim.

Rica ederim.

 

[sametumur]

verdiğiniz kodu yeni deneme şansım oldu.

sonsat=

ile başlayan satır hata veriyor.

 

[asi_kral]

verdiğiniz kodu yeni deneme şansım oldu.

sonsat=

ile başlayan satır hata veriyor.

Merhaba

Dim sonsat As Long
sonsat = [COLOR="Red"]Sheets("Sayfa2").[/COLOR]Cells(Rows.Count, "H").End(xlUp).Row + 1
[COLOR="Red"]Sheets("Sayfa2").[/COLOR]Cells(sonsat, "H").Value = ComboBox1.Value

Kırmızı yerlerde yazan sayfa adını kontrol edin.

 

[sametumur]

evet sayfa isminde problem varmış. çözüldü teşekkür ederim.

 

[Orion1]

evet sayfa isminde problem varmış. çözüldü teşekkür ederim.

Siz sayfa2 demiştiniz.
Bende onun için Sayfa2 yazmıştım.