Soru Makro ile en alt dolu satırın altına kayıt hk.

[balanar]

Forumdaki üstadlardan birininin uyarısı ile yanlış dosya yüklediğimi farkettim..

Şimdi düzelttim..

EKLE butonuna bastıktan sonra, combobox'dan yapılan seçim ve yanına yazılacak sevk adeti sevk sayfasındaki verilerin en altına eklenecek şekilde devam etmesi gerekiyor. Bu konuda yardımcı olabilir misiniz?

S.NO kısmınıda otomatik atacak tabi sıra numarasına göre..

 

[dEdE]

Merhaba,
"...Forumdaki üstadlardan biri..." aşağıdaki kodu öneriyor. UserForm'un kod bölümüne yapıştırmalısınız.

Private Sub CommandButton1_Click()
    Set s1 = Sheets("Sevk")
    ss = s1.Cells(Rows.Count, "E").End(3).Row + 1
    s1.Cells(ss, 4) = s1.Cells(ss - 1, 4) + 1
    s1.Cells(ss, 5) = ComboBox1.Text
    s1.Cells(ss, 7) = TextBox1.Text
End Sub

 

[balanar]

hocam buna ek olarak eklediği satırdaki "J" sutununa



Fiyatlar adlı sayfada böyle bir tablo var. Combobox'da seçilen değerle fiyatlar sayfasındaki birim fiyatı neyse şöyle bir işlem nasıl yaptırabilirim..

TextBox1.Text* fiyatlar sayfasındaki combobox1'de seçilen ürün adının sağındaki birim fiyat = J sutunu

 

[dEdE]

Merhaba,
Kodu aşağıdaki ile değiştirelim.
Sonucun J sütununa yazılmasını istemişsiniz ama, örnek dosyanızın J sütununda Fatura Tarihi var. Gerekli ise koddaki sütun adını değiştirmelisiniz. Fiyatlar sayfanızda Ürün Adının A sütununda, Birim Fiyatında B sütununda olduğunu varsaydım. Ayrıca F sütunundaki Düşeyara işlevine de gerek kalmadı. Kod o işlemi de yapıyor.

Private Sub CommandButton1_Click()
    Set s1 = Sheets("Sevk")
    Set s2 = Sheets("Fiyatlar")
    ss = s1.Cells(Rows.Count, "E").End(3).Row + 1
    s1.Cells(ss, 4) = s1.Cells(ss - 1, 4) + 1
    s1.Cells(ss, 5) = ComboBox1.Text
    s1.Cells(ss, 7) = TextBox1.Text
    
    Set c = s2.Range("A:A").Find(ComboBox1.Text, , xlValues, xlWhole)
        If Not c Is Nothing Then
            s1.Cells(ss, 6) = s2.Cells(c.Row, 2)
            s1.Cells(ss, "J") = s2.Cells(c.Row, 2) * Val(TextBox1.Text)
        End If
End Sub