Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: Hücreye girdiğim veriye eş sayfa yoksa makrosu  (Okunma sayısı 3485 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı judlas

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: judlas judlas
  • Doğum Yılınız: 1978
  • İl / İlçe: İstanbul / Levent
Hücreye girdiğim veriye eş sayfa yoksa makrosu
« : 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