Makro ile satış tablosu hazırlama yardım..

[djoguzz]

Merhaba,

Arkadaşlar ekte verdiğim örnek dosyada satış ekle butonu oluşturulup bu butona tıklandığında başlıklara göre gerekli yerleri dolduracağım bir tablo hazırlana bilir mi kaydet dediğimde de excelde gerekli satırlara verileri girecek. her satışta alt satıra yeni kaydı girecek. Teşekkürler şimdiden

 

[djoguzz]

Yokmu yardım edebilecek birisi arkadaşlar.

 

[N.Ziya Hiçdurmaz]

yanıt

Kendinize göre değişiklikleri yaparsınız.

 

[djoguzz]

Kendinize göre değişiklikleri yaparsınız.

Hocam gerçekten süpersiniz çok teşekkürler tam istediğim gibi oldu. Ben Başlıklar ekledim form doldururken rahat olsun diye tekrar ekliyorum şimdi onu. Eğer yapabilirsek TESLİMAT kısmında "Teslim Edildi", "Teslim Edilmedi", "Teslim Edildi (Kredisiz)" şeklinde aşağı açılan bir menü eklenebilir mi. Birde "KALAN TUTAR" Kısmı Otomatik olarak "SATIŞ TUTARI" İLE " TAKAS TUTARI" arasındaki farkı alsa çok iyi olacak hocam. Çok zahmet verdim hakkınızı helal edin elinize kolunuza sağlık.

 

[N.Ziya Hiçdurmaz]

yanıt

Güle, güle kullanın.

 

[djoguzz]

Güle, güle kullanın.

Hocam çok çok teşekkürler yalnız ben rakamları yazdığımda sayı olarak almıyor excel e düz metin gibi gösteriyor çözümü varmıdır onun ?

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyin.

Val (TextBox1)

 

[djoguzz]

Bu şekil deneyin.

Val (TextBox1)

hocam nereye ekleyeceğim bu kodu acaba ? sayfaların kod bölümüne mi ?

 

[merakli_72]

selam;
Aşağıdaki olayda sayısal veri içeren alanlar için ekleyiniz
Örneğin Textbox6'da sayısal bir veri alıyorsanız bu satırı

Cells(son, "f") = Val(TextBox6)

şeklinde yazınız, ve bunu aşağıdaki subda olması gereken diğer alanlarada ekleyiniz



Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Ürün kodu boş olmaz.", vbInformation
Exit Sub
End If
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1
Cells(son, "b") = TextBox2
Cells(son, "c") = TextBox3
Cells(son, "d") = TextBox4
Cells(son, "e") = ComboBox1
Cells(son, "f") = TextBox6
Cells(son, "G") = TextBox7
Cells(son, "H") = TextBox8
Cells(son, "I") = TextBox9
Cells(son, "J") = TextBox10
Cells(son, "G") = Cells(son, "f") - Cells(son, "j")
Call UserForm_Initialize
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Ürün kodu boş olmaz.", vbInformation
Exit Sub
End If
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1
Cells(son, "b") = TextBox2
Cells(son, "c") = TextBox3
Cells(son, "d") = TextBox4
Cells(son, "e") = ComboBox1
Cells(son, "f") = Val(TextBox6)
Cells(son, "G") = Val(TextBox7)
Cells(son, "H") = Val(TextBox8)
Cells(son, "I") = TextBox9
Cells(son, "J") = Val(TextBox10)
Cells(son, "G") = Cells(son, "f") - Cells(son, "j")
Call UserForm_Initialize
End Sub

 

[djoguzz]

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Ürün kodu boş olmaz.", vbInformation
Exit Sub
End If
son = Cells(65536, "a").End(xlUp).Row + 1
Cells(son, "a") = TextBox1
Cells(son, "b") = TextBox2
Cells(son, "c") = TextBox3
Cells(son, "d") = TextBox4
Cells(son, "e") = ComboBox1
Cells(son, "f") = Val(TextBox6)
Cells(son, "G") = Val(TextBox7)
Cells(son, "H") = Val(TextBox8)
Cells(son, "I") = TextBox9
Cells(son, "J") = Val(TextBox10)
Cells(son, "G") = Cells(son, "f") - Cells(son, "j")
Call UserForm_Initialize
End Sub

Hocam ben bi türlü beceremedim bunu kusuruma bakmayın vba ile hiç iyi değilim sizede zahmet veriyorum ama gönderdiğiniz örnek dosyada bunu ayarlayıp tekrar gönderebilir misiniz?

 

[N.Ziya Hiçdurmaz]

yanıt

----- -----

 

[djoguzz]

----- -----

Allah kimseyi cahil bırakmasın valla

Hocam elinize kolunuza sağlık Allah razı olsun şimdi süper oldu. Hakkınızı helal edin.

Siz bu makroları direk kodlarla mı yazıyosunuz hocam ben anlamıyorum bu işi yeniyim biseyler yapayım diyorum kod işlerinden anlamıyorum ama nasıl öğrenebilirim bunu

 

[N.Ziya Hiçdurmaz]

Allah sizdende razı olsun. vba öğrenmek için tam yerindesiniz, forumumuzdaki soru ve cevapları takip edip, kendinizde yapmaya çalışınız. Sonucunu zaman ve sizin ne kadar istekli olduğunuz belirler.

 

[djoguzz]

Allah sizdende razı olsun. vba öğrenmek için tam yerindesiniz, forumumuzdaki soru ve cevapları takip edip, kendinizde yapmaya çalışınız. Sonucunu zaman ve sizin ne kadar istekli olduğunuz belirler.

Anladım hocam tekrar çok teşekkürler zaman ayırdığınız için sık sık takip ediyorum burayı zaten. Yardımcı olabileceğim yerde yardım da etmeye çalışıyorum. İnşallah öğrenebilirim şu vb i

 

[desk]

----- -----

Dosyayı resimdeki gibi bir türlü oturtamadım. Yardımcı olabilecek varmı?

 

[merakli_72]

hangi dosyayı

 

[desk]

Üstteki dosyayı.

 

[desk]

Birde burda E sütunundaki teslimatta kısmında hücrelerde 3 lü seçme imkanı veren hücreyi nasıl yaptığınızıda yazabilirmisiniz ben bulamadım.!

 

[desk]

Bu form hakkında yardımcı olabilecek varmı...