Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: judlas - 07 Şubat 2017, 09:21:33

Başlık: Hücreye girdiğim veriye eş sayfa yoksa makrosu
Gönderen: judlas - 07 Şubat 2017, 09:21:33

Merhabalar

aşağıdaki kod ile Veri Girişi sayfamda A sütununda 6. satırdan alt alta yazdığım "ad soyad" bilgisini aynı bilgiye sahip başka sayfaya karşısındaki satırdaki veriyi aktarıyor.

Yani A sütununa yazdığım "ad soyad" bilgilerine karşılık gelen birde Sayfa adları var. ve bu sayfalara A sütununda girdiğim ad soyada göre veriler dağılıyor.

Ben istiyorum ki Bu veri girişinde girdiğim bir Ad soyad verisi eğer Sayfa olarak karşılığı yoksa bana bir msgbox uyarısı ile karşıma çıksın ve
"bu İsme ait sayfa yoktur devam edilsinmi" diye bir uyarıyla ben ok e basınca bir sonraki satırdaki ad soyad verisinden verileri dağıttırmaya devam edebileyim.
Bilgi ve yardımlarınızı rica ederim

Kod: [Seç]

Sub sayfalara_dagıt()
Dim Sh As Worksheet
 With Sheets("Veri Girişi")
For i = 6 To .Cells(Rows.Count, 1).End(3).Row + 1
syf = .Cells(i, "A"): Set Sh = Sheets(syf)
son = Sh.Cells(46, "B").End(3).Row
If son = 4 Then son = 5
.Range("B" & i & ":P" & i).Copy
    Sh.Range("B" & son + 1). _
    PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        'On Error Resume Next
Next i

Sheets("Veri Girişi").Select
.Range("A6").Select
End With
MsgBox "Veri aktarımı tamamlandı", vbExclamation
End Sub