hata kontrolü ekleme

[YILDIZ YAĞMURU]

Merhaba ,
Aşağıdaki kod a hata mesajı eklemek istiyorum yardımcı olursanız çok sevinirim.

a) Eğer aynı sayfa adından varsa " bu isimde bir sayfa adı mevcuttur başka bir ad giriniz" diye uyarı versin ve sayfa kopyalamayı durdursun.
b) Kopyalama işlemi doğruysa " işlem tamamlandı "mesajı versin istiyorum..

şimdiden çok teşekkür ederim
Ayşe YILDIZ

Sub SAYFAKOPYALA()
Sheets("URUNDATA").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("CARIDATA").Range("B3")
End Sub

 

[apocalyt]

şunu deneyin..

Sub daylight()
For x = 1 To Sheets.Count
If Sheets(x).Name = Sheets(2).Range("b3") Then
MsgBox "Bu isimde sayfa adı mevcuttur.Başka bir ad giriniz.", vbInformation
Exit Sub
End If
Next x
Sheets("URUNDATA").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("CARIDATA").Range("B3")
Sheets(Sheets.Count).Range("b2") = Sheets("CARIDATA").Range("B3")
MsgBox "İşleminiz tamamlandı.", vbInformation
End Sub

 

[YILDIZ YAĞMURU]

şunu deneyin..

Sub daylight()
For x = 1 To Sheets.Count
If Sheets(x).Name = Sheets(2).Range("b3") Then
MsgBox "Bu isimde sayfa adı mevcuttur.Başka bir ad giriniz.", vbInformation
Exit Sub
End If
Next x
Sheets("URUNDATA").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("CARIDATA").Range("B3")
MsgBox "İşleminiz tamamlandı.", vbInformation
End Sub

Çok teşekkür ederim apocalyt
bu koda ek olarak yeni çoğaltılan sayfanın b2 hücresine CARIDATA sayfasının B3 hücresindeki veriyi yazdırabilirmiyiz acaba

Ayşe YILDIZ

 

[apocalyt]

rica ederim... bir üstteki mesajımda gerekli değişikliği yaptım..