belirtilen hücreden başlayarak txtboxa girilen verileri alt alta sayfaya aktarmak

[celine]

Arkadaşlar aslında çok basit fakat bulamadım,,textboxa yazdığımı D24'ten D5000e kadar kodun alt alta sıralayabilmesini istiyorum. textbox yazıyorum sayfaya aktar diyorum sonra txtboxı başka bir butonla temizleyerek, yine yazıyorum ve sayfaya aktar diyorum ve bu böyle devam ediyor,,ilk aktarımı D23'e yapıyor, sonraki aktarımları sırayla D24, D25, D26...ya yapmasını istiyorum. Yardımcı olabilirseniz sevinirm.

 

[Mahmut Kök]

Arkadaşlar aslında çok basit fakat bulamadım,,textboxa yazdığımı D24'ten D5000e kadar kodun alt alta sıralayabilmesini istiyorum. textbox yazıyorum sayfaya aktar diyorum sonra txtboxı başka bir butonla temizleyerek, yine yazıyorum ve sayfaya aktar diyorum ve bu böyle devam ediyor,,ilk aktarımı D23'e yapıyor, sonraki aktarımları sırayla D24, D25, D26...ya yapmasını istiyorum. Yardımcı olabilirseniz sevinirm.

Aşağıdaki aynı veriyi d23:d5000 aralığına yazar

veri=textbox1
 
for a=23 to 5000
cells(a,"d")=veri
next

Aşağıdaki kodlar da D23'ten başlayarak alt alta verileri ekler.

veri=textbox1
sat=[d5000].end(3).row
if sat<23 then sat=23
cells(sat,"d")=veri

 

[celine]

Sn mesleki, bu yolladığınız çözümü ekte gönderdiğim dosyaya göre uyarlayabilirmisiniz ben yapamadım, txt boxları dolduruyosunuz ve faturaya yerleştir diyosunuz, daha sonra aynı faturaya ekstra mal eklemek için temizle diyosunuz ve sadece temizlenen bölümü doldurarak faturaya ekle dediğinizde yazılan malların alt alta sıralanmasını istiyorum. Yani tüm bunlar aynı fatura içinde çok parça mal olan faturalar için. Eğer yeni bir fatura kesilecekse zaten yeni girişe basıyosunuz ama tabi bizim bunla ilgimiz yok, bilmeme anlatabildimmi. bibakarsınız çok sevinirim. çözümünüz için tekrar teşekkürler..

 

[celine]

Sn mesleki, yada şöyle söyliyeyim, benim 4 ayrı txtboxım var yani kodda şöyle bişey yapabilirmiyiz

veri=txtbox1,txtbox2, txtbox3, txtbox4

gibi bişey yada nasıl yapabiliriz?

 

[Mahmut Kök]

Sayfada, öncelikle bilgilerin yer alacağı alanı delete ile temizlemenizi öneririm. Çünkü kodlar, o alanlarda veri algılıyor.

Aşağıdaki kodlar umarım işinize yarar.

Private Sub CommandButton1_Click()
sat = Range("D5000").End(3).Row + 1
If sat < 23 Then sat = 23
  Range("C9") = txtkurum.Value 'Kurum adı
  Range("C21") = txtvdaire.Value 'Vergi Dairesi:
  Range("D21") = txtvno.Value 'Vergi No:
  Range("F10") = txttarih.Value 'Tarih:
  Range("F12") = txtitarih.Value 'İrsaliye Tarihi:
  Range("F14") = txtino.Value 'İrsaliye No:
  Range("D" & sat) = txtmal.Value 'Malın Cinsi
  Range("E" & sat) = txtmiktar.Value 'Miktarı
  Range("F" & sat) = txtfiyat.Value 'Fiyatı
  Range("G" & sat) = txttutar.Value 'tutarı
  
    
MsgBox "BİLGİLER AKTARILMIŞTIR !", vbInformation
End Sub

 

[celine]

Çok teşekkürler sn mesleki yanlız bu kodu faturaya yerleştir butonunamı yoksa faturaya ekle butonunamı yazıyım?

 

[celine]

pardon gereksiz bisoruydu kusura bakmayın, tabiki fatura yerleştir butonuna diğer butona ihtiyaç kalmıyor.. delete ile temizlemek derken temizle butonuna .delete kodumu yazıyım?? anlamadım
birde fatura sayfamda ilk kayıt d23e gelicek fakat burada bambaşka biyerde acaba yolladığım dosyada bidenermisiniz yanlışlığın ne olduğunu bilmiyorum.. çok alttan yazıyor ben girilen kayıtların d23ten başlayarak yazılmasını istiyorum neyapmalıyım?

 

[Mahmut Kök]

pardon gereksiz bisoruydu kusura bakmayın, tabiki fatura yerleştir butonuna diğer butona ihtiyaç kalmıyor.. delete ile temizlemek derken temizle butonuna .delete kodumu yazıyım?? anlamadım

Estağfurullah...

Sayfadaki hücreleri seçip delete düğmesi ile silin. Hücreler boş gibi gözüküyor, ama excel bazı satırlarda veri algılıyor. Bu yüzden, ilk boş satır yanlış tespit ediliyor. Bunu kasdetmiştim.

 

[celine]

fakat öyle yapınca busefer her yazdığım ilksatır yani d,e,f,g 23 gibi görüyor ve üstüne yazıyor, yada alakasız biyere devam ediyor mesela toplamın altındaki satıra yazıyor, zahmet olmazsa programda bideneyebilirmisiniz..?

 

[Mahmut Kök]

Ekli dosyaya bakınız. Bende sorun yok gibi gözüküyor. Silme işlemini 1 kere yapmanız yeterli olacaktır.

 

[celine]

Fakat bende yanlış çalışıyor,, yani yazdığı yer yazıyla toplamın yazıldığı satırın altındaki satır ben dosyayı son haliyle bidaha yolluyorum burda bibakarsanız..

Bakın bu programın benim yaptığım hali burda faturaya sadece tek mal girebiliyoruz fakat benim yapmak istediğim- ki burda girilen hücreler önemli çünkü delikli kağıtta fatura yazdırılıcak- bir faturya birden fazla mal girebilmek. yani alt alta atıyorum 5 mal için fatura yazıcak yani diğerlerinin silinmemesi gerekiyor. vede ilk mal kayıdı d,e,f,g 23 hücrelerini kapsıyor diğer yazılacak mallarda sırayla, yine defg24,25,26... olarak alt alta devam edecek..
zaman ayırdığınız için teşekkür ederim.

 

[celine]

Sn mesleki yeni farkettim program düzgün çalışıyor fakat tabi bikaç düzeltme yaptım, Programda sorun olan şey modülün içindeki parayı yazıya çeviren fonksiyon. ben normalde sayfalardan D42 hücresinde formül olarak yazan =yaztl(G46) yı sildiğim zaman biproblem kalmıyor program düzgün çalışıyor fakat bana G46 hücresinde rakamla yazan paranın D42 de yazıyla yazılması gerekiyor. Ne yapabilirim.
Son halini yolluyorum programın.