Uyarı ekranı çıksın.

[teachergokce]

Öncelikle sorum sizler için çok basit olabilir. Makroyu yeni öğrenmeye çalışıyorum ve bunu da makro kaydet ile biraz )
İstediğim şu:
Ekli dosyada 2 makro var 1. si kopyala 2.si ise sil makrosu.(2. sayfaya kopyalıp siliyor)

KOPYALA makrosundan sonra BİR EKRAN AÇILIP KOPYALANMIŞTIR YAZACAK.
SİL makrosundan ÖNCE SİLMEK İÇİN EMİN MİSİNİZ? DİYE SORACAK EVET İSE SİLCEK HAYIR İSE SİLMEYECEK VE SONUNDA DA SİLİNDİ DİYECEK . . . bilmem anlata bildim mi?

 

[Mahir64]

Merhaba,

Sub KAYDET()
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B1:K24").Select
    Selection.Copy
    Sheets("per ölç (2)").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("per ölç").Select
    Range("B1:K1").Select
    Application.CutCopyMode = False
    MsgBox "kopyalanmıştır.", vbInformation, "bilgi"
End Sub
Sub SİL()
Baslik$ = "SİL !!!"
Mesaj$ = "Silmek İstiyor musunuz?"
cevap$ = MsgBox(Mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then

    Sheets("per ölç (2)").Select
    Range("B1:K24").Select
    Selection.ClearContents
    Sheets("per ölç").Select
    Range("B1:K1").Select
Else
End If

End Sub

 

[asi_kral]

Öncelikle sorum sizler için çok basit olabilir. Makroyu yeni öğrenmeye çalışıyorum ve bunu da makro kaydet ile biraz )
İstediğim şu:
Ekli dosyada 2 makro var 1. si kopyala 2.si ise sil makrosu.(2. sayfaya kopyalıp siliyor)

KOPYALA makrosundan sonra BİR EKRAN AÇILIP KOPYALANMIŞTIR YAZACAK.
SİL makrosundan ÖNCE SİLMEK İÇİN EMİN MİSİNİZ? DİYE SORACAK EVET İSE SİLCEK HAYIR İSE SİLMEYECEK VE SONUNDA DA SİLİNDİ DİYECEK . . . bilmem anlata bildim mi?

Merhaba
Moduledeki kodları bununla değiştirip dener misiniz_?

Sub KAYDET()
    Range("B1:K24").Copy
    Sheets("per ölç (2)").Select
    Range("B1").PasteSpecial (xlPasteValues)
    Sheets("per ölç").Select
    Range("B1:K1").Select
    Application.CutCopyMode = False
    MsgBox "Kopyalama Tamamlandı", vbInformation, "asi_kral_1967"
End Sub
Sub SİL()
    Dim asi
    asi = MsgBox("Silmek İstediğinize Emin Misiniz", vbYesNo, "Onay")
    If asi = vbNo Then Exit Sub
    Sheets("per ölç (2)").Select
    Range("B1:K24").ClearContents
    Sheets("per ölç").Select
    Range("B1:K1").Select
    MsgBox "Silme İşlemi Başarı ile Yapıldı", vbInformation, "asi_kral_1967"
End Sub

 

[teachergokce]

2 nize de ayrı ayrı teşekkür ederim....
sağolun....

 

[Mahir64]

2 nize de ayrı ayrı teşekkür ederim....
sağolun....

İyi çalışmalar.

 

[asi_kral]

2 nize de ayrı ayrı teşekkür ederim....
sağolun....

Kolay Gelsin.