bul-yaz işlemi

[kahramang1]

Merhabalar. Sizlerden ricam ekli tablonun giriş bölümündeki B2 hücresindeki referans numarası değereini tablo sayfasındaki daki A sütununda bulup karşısına giriş sayfasındaki fatura turarı ve önceki bakiye değerlerini yazmasıdır. Teşekkür eder, kolaylıklar dilerim.

 

[YUSUF44]

Yeni başlayanlar bölümüne sormuşsunuz ama anladığım kadarıyla yapacağınız işlem makroyla çözülebilir. Aşağıdaki makroyu deneyiniz:

Sub aktar()
Set s1 = Sheets("giriş")
Set s2 = Sheets("tablo")
son = s2.Cells(Rows.Count, "A").End(3).Row
If s1.[B1] <> "" Then
    If WorksheetFunction.CountIf(s2.Range("A3:A" & son), s1.[B1]) > 0 Then
        sat = WorksheetFunction.Match(s1.[B1], s2.Range("A1:A" & son), 0)
        s2.Cells(sat, "B") = s1.[B2]
        s2.Cells(sat, "C") = s1.[B3]
    Else
        MsgBox s1.[B1] & " referans numarası tablo sayfasında bulunmamaktadır!", vbInformation
    End If
Else
    MsgBox "Lütfen referans numarası giriniz!", vbInformation
    s1.Activate
    s1.[B1].Select
End If
End Sub

 

[kahramang1]

Teşekkür ederim. Bu makro işimi gördü. Birde tekrar giriş sayfasına dönüp b1 b3 arasındaki değerleri temizlemeyi de akler misiniz lütfen. Onu söylemeyi unutmuşum )

 

[YUSUF44]

İlk Else satırından önce aşağıdaki satırları ekleyin:

        s1.[B1:B3].ClearContents
        s1.Activate

 

[kahramang1]

çok teşekkür ederim. Şimdi işlem tamam oldu. Kolay gelsin.