Sutunda arama

[fealdown]

merhaba, ben bir proje üzerinde çalışıyorum ama takıldığım bir yer var mailden bilgiler alıyorum ve excele liste yapıyorum
mailden çağrı numarası diye bir bilgi çekiyorum ve bunu F sutununa kaydediyorum.eğer çağrı numarası f sutununda varsa hiç bişey yapmicak eğer yoksa listeye yeni bir satır eklicek ve mailden mağaza adı kodu tarih gibi bilgileri kaydedecek.benim istediğim sadece f sutununda var mı diye kontrol etmesi ve yeni satır için son boş olan hücreyi bulmam.Mailden verileri ben çekip listeye eklerim

 

[YUSUF44]

Mailden bilgi alma kısmını bilmiyorum ancak var yok kontrolü ve yeni satıra ekleme kısmını aşağıdaki kod mantığıyla yapabilirsiniz:

    son = Cells(Rows.Count, "A").End(3).Row
    If WorksheetFunction.CountIf(Range("F1:F" & son), kontroll) = 0 Then
        cells(son+1,"A") = 'buraya mailden alınan cağrı kodu gelecek
        cells(son+1,"B") = 'buraya mailden alınan Mağaza adı gelecek
        ' vs
        'vs
    End If

 

[fealdown]

teşekkür ederim sağolun