• DİKKAT

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

TextBox dan sayfaya şartlı aktarma.

ulutanas

ulutanas

Altın Üye
Katılım
8 Kasım 2008
Mesajlar
582
Excel Vers. ve Dili
Excel Vers. ve Dili Ofis 2021 TR 32 Bit
Arkadaşlar merhaba,

Kod: 
Private Sub CommandButton1_Click()
FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 2
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox10.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox11.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox12.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox13.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox14.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox15.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox16.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox17.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox18.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox20.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox21.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox22.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox23.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox24.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox25.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox26.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox27.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox28.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox29.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox30.Text

Yukarıda eklemiş olduğum kod da textboxları doldurup sayfaya aktarıyorum.

Textbox6-8-1-10-11-12-13-14 leri dolduruyorum.
Textbox6-8-1-15-16-17-18-20 leri dolduruyorum.

CommandButton1 tuşuna bastığımda verileri sayfaya aktarıyorum.

Devamında gelen Textbox ları boş olduğu zaman örneğin
Textbox6-8-1-21-22-23-24-25 leri boş bıraktığımda Textbox6-8-1- deki verileri Textbox21-22-23-24-25 boş olsada aktarıyor

Sizlerden ricam

Kod: 
FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox21.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox22.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox23.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox24.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox25.Text

TextBox21-22-23-24-25 dolu ise 6-8-1 ile birlikte aktarılsın
ama bunlar boş ise aktarılmasın

Bunun için nasıl bir düzenleme yapmalıyız.

İyi çalışmalar dilerim,
Saygılarımla...
 
Private Sub CommandButton1_Click()
If TextBox6.Text <> "" Then
If TextBox8.Text <> "" Then
If TextBox1.Text <> "" Then
FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 2
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox10.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox11.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox12.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox13.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox14.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox15.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox16.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox17.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox18.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox20.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox21.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox22.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox23.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox24.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox25.Text

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox26.Text
Sheets("KAYIT").Cells(FED, "E").Value = TextBox27.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox28.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox29.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox30.Text
Else
MsgBox "Verileri Eksiksiz Girmeniz gerekiyor"
end If
Else
MsgBox "Verileri Eksiksiz Girmeniz gerekiyor"
end If
Else
MsgBox "Verileri Eksiksiz Girmeniz gerekiyor"
end If
Genişletmek için tıkla ...

Kodunuza kırmızı yerleri ekleyip denermisiniz.
 
Merhaba benim anladigim sekilde butun bloklar degil sadece belirttiginiz 23-24-25 ... text boxlarin gectigi kısım icin istiyorsanız asagidaki sekilde blok atlatabilirsiniz. arkadasin yazdigi kodu bu araya alip kullanabilirsiniz. ben sadece 21. textbox bos ise seklinde yaptim denetimi artirmak icin AND ve EVG , OR operatorlerini kullanabilirsiniz

mesela

If Empty = TextBox6 And Empty= TextBox8 Then
-----------
If Empty = TextBox6 OR Empty= TextBox8 Then

-------------------
If not Empty = TextBox6 or not Empty= TextBox8 Then
ya da

If not Empty = TextBox8 evg Empty= TextBox22 Then

vs gibi degisik versiyonlar yaptirabilirsiniz. birisi dolu birisi bos sa vs hepsi bos sa sadece biri doluysa vs

----------------------------------------
If Empty = TextBox21 Then
GoTo pass1

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = TextBox21.Text
Sheets("KAYIT").Cells(FED, "E").Value = Textbox22.Text
Sheets("KAYIT").Cells(FED, "F").Value = Textbox23.Text
Sheets("KAYIT").Cells(FED, "G").Value = Textbox24.Text
Sheets("KAYIT").Cells(FED, "H").Value = Textbox25.Text

pass1:

FED = Sheets("KAYIT").Range("A65536").End(xlUp).Row + 1
Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
Sheets("KAYIT").Cells(FED, "B").Value = TextBox8.Text
Sheets("KAYIT").Cells(FED, "C").Value = TextBox1.Text
Sheets("KAYIT").Cells(FED, "D").Value = Textbox26.Text
Sheets("KAYIT").Cells(FED, "E").Value = Textbox27.Text
Sheets("KAYIT").Cells(FED, "F").Value = TextBox28.Text
Sheets("KAYIT").Cells(FED, "G").Value = TextBox29.Text
Sheets("KAYIT").Cells(FED, "H").Value = TextBox30.Text


End If
End Sub
 
yanginci34 merhaba

Kod: 
If TextBox6.Text <> "" Then
If TextBox8.Text <> "" Then
If TextBox1.Text <> "" Then

Bu şekilde sadece TextBox6-8-1 boş olursa uyarı veriyor.

Benim istediğim uyarı vermesi değil

TextBox21-22-23-24-25 dolu ise 6-8-1 ile birlikte aktarılsın

Çalışmanız için teşekkür ederim.
 
Arkadaşlar öncelikle yardımınız için teşekkür ederim.

Ben en iyisi dosya ekleyeyim. Biraz yanlış anlattım sanırım.

İyi çalışmalar dilerim,
Saygılarımla
 

Ekli dosyalar

Ben textbox6 için yaptım.
Diğerlerini size bıraktım.
Kolay gelsin.:cool:
Kod: 
If TextBox6.Value <> "" Then
    Sheets("KAYIT").Cells(FED, "A").Value = TextBox6.Text
End If
 
Evren hocam merhaba yine elinizi uzattınız teşekkürler.

Fakat hocam bir yanlış anlatımım var konu başlangıcında. Bir önceki mesajımda dosya eklemiştim. Size zahmet olmazsa kontrol edebilir misiniz.

İlginiz için tekrar teşekkür ederim.

İyi çalışmalar dilerim,
Saygılarımla...
 
Bu gibi durumlarda yaptığım şekildeki gibi çalışılır.
Dosya ektedir.
 

Ekli dosyalar

Evren hocam teşekkür ederim tam istediğim gibi oldu şimdi.

Fakat sayfaya aktarım yaparken fatura bedelleri textboxlara yazıldığı gibi olmuyor. 1211 ad ürün 2,21 TL den textbox da 2.676,31 TL gösterirken ListBox a ve sayfaya aktarımlarında aradaki , işaretini kaldırıp aktarıyor. bu durumda kuruşları TL olarak aktarıyor ve rakam toplamı çok farklı yansıyor. Bu konuda da yardımcı olursanız çok memnun olurum hocam.
 
ulutanas' Alıntı:
Evren hocam teşekkür ederim tam istediğim gibi oldu şimdi.

Fakat sayfaya aktarım yaparken fatura bedelleri textboxlara yazıldığı gibi olmuyor. 1211 ad ürün 2,21 TL den textbox da 2.676,31 TL gösterirken ListBox a ve sayfaya aktarımlarında aradaki , işaretini kaldırıp aktarıyor. bu durumda kuruşları TL olarak aktarıyor ve rakam toplamı çok farklı yansıyor. Bu konuda da yardımcı olursanız çok memnun olurum hocam.
Genişletmek için tıkla ...

H sütununu formatladım.
Dosyayı önceki mesajıma tekrar ekledim.
 
listboxtada formatlama yaptım.
dosyayı 8 nolu mesajdan indirebilirsiniz.:cool:
 
Evren hocam her şey için çok teşekkür ederim tam istediğim gibi oldu şimdi.

İyi çalışmalar dilerim,
Saygılarımla...
 
ulutanas' Alıntı:
Evren hocam her şey için çok teşekkür ederim tam istediğim gibi oldu şimdi.

İyi çalışmalar dilerim,
Saygılarımla...
Genişletmek için tıkla ...

Rica ederim.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst