Eğer Formülü İsteği

[cavanoos]

Merhaba arkadaşlar;

Ekli dosyamda sayfa1 sekmesinde örnek bir liste var.Yapmak istediğim şudur.Eğer A1 hücresi dolu ise 300 satırı kes sayfa2 sekmesine kopyala değil ise işlem bitti uyarısı versin.

 

[cavanoos]

Eki unutmuşum.Ekledim.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız..

Sub Tasi()
 
Dim S2 As Worksheet
 
Set S2 = Sheets("Sayfa2")
 
Sheets("Sayfa1").Select
 
If Range("A1") <> "" Then
    Range("A1:C300").Cut S2.Range("A1")
Else
    MsgBox "İşlem Bitti"
End If
 
End Sub

.