• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

dolu ise alt hucreye yazdırma

E

echobrain

Katılım
4 Ağustos 2006
Mesajlar
33
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
 
echobrain' Alıntı:
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
Genişletmek için tıkla ...

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

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

Örnek dosyanızı koyabilirmisiniz.
 
Merhaba,

Kod: 
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.
 
Merhaba,

Aşağıdaki kodları dener misiniz?

Kod: 
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
 
Hocam,

Ben ilk seferinde yanlıs cevap yazmısım:)
Ama sizin hızınıza yetısmek mumkum değil.İyi çalışmalar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst