dolu ise alt hucreye yazdırma

[echobrain]

merhaba arkadaşlar.daha acemi bir vba kullanıcısı olarak bir konuda yardımıza ihtiyacım var .konuyu açmadan formda araştırdım fakat buldugum ornekleri açamadım.problemim su textbox daki kodları fuar çalışma sayfasına kaydettiriyorum fakat ust uste yazıyor hucre dolu ise bir sonki satıra yazdırmasını istiyorum.yardımlarınız için teşekkurler şimdiden

Sheets("FUAR").Select
Z = Range("a2").End(xlDown).Row + 1
If Z > 65000 Then Z = 2
Cells(Z, 1) = TextBox1
Cells(Z, 2) = TextBox2
Cells(Z, 3) = TextBox3
Cells(Z, 4) = TextBox4
Unload Me
ANAFORM.Show

 

[Kemal Demir]

merhaba arkadaşlar.daha acemi bir vba kullanıcısı olarak bir konuda yardımıza ihtiyacım var .konuyu açmadan formda araştırdım fakat buldugum ornekleri açamadım.problemim su textbox daki kodları fuar çalışma sayfasına kaydettiriyorum fakat ust uste yazıyor hucre dolu ise bir sonki satıra yazdırmasını istiyorum.yardımlarınız için teşekkurler şimdiden

Sheets("FUAR").Select
Z = Range("a2").End(xlDown).Row + 1
If Z > 65000 Then Z = 2
Cells(Z, 1) = TextBox1
Cells(Z, 2) = TextBox2
Cells(Z, 3) = TextBox3
Cells(Z, 4) = TextBox4
Unload Me
ANAFORM.Show

Tam anlamadım ama şöyle denesenız.

Örnek: Cells(Z+1,1)=Textbox1

Örnek dosyanızı koyabilirmisiniz.

 

[echobrain]

Tam anlamadım ama şöyle denesenız.

Örnek: Cells(Z+1,1)=Textbox1

Örnek dosyanızı koyabilirmisiniz.

dediginizi yaptım olmadı.örnek dosyayı ekliyorum.ilginiz için şimdiden teşekkurler.

 

[Kemal Demir]

Merhaba,

Sheets("FUAR").Select
Say = [a65536].End(3).Row + 1
    Cells(Say, 1) = TextBox1
    Cells(Say, 2) = TextBox2
    Cells(Say, 3) = TextBox3
    Cells(Say, 4) = TextBox4
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""

Yukarıdaki gibi denermisiniz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub CommandButton1_Click()
Sheets("FUAR").Select
Z = [COLOR=red][B][A65536].End(3).Row[/B][/COLOR] + 1
Cells(Z, 1) = TextBox1
Cells(Z, 2) = TextBox2
Cells(Z, 3) = TextBox3
Cells(Z, 4) = TextBox4
End Sub

 

[Necdet]

Geç kalmışım

 

[Kemal Demir]

Hocam,

Ben ilk seferinde yanlıs cevap yazmısım
Ama sizin hızınıza yetısmek mumkum değil.İyi çalışmalar.

 

[echobrain]

cok teşekkur ederim.oldu