Satır dolduğu zaman uyarı mesajı vermesi

[ASLAN7410]

Merhaba arkadaşlar hayırlı akşamlar.

Ekte gönderdiğim excel sayfasında VERİ sayfasındaki verileri girip kaydet butonu ile EVRAK sayfasına aktarma yapıyorum, benim istediğim belirli bir satır dolduğu zaman yani EVRAK sayfasındaki B30 satırı dolduğu zaman uyarı mesajı vermesini istiyorum ve butona tekrar bastığımda EVRAK sayfasına aktarmamasını istiyorum.

http://s6.dosya.tc/server3/an1btw/Ornek.xls.html

Temizle butonundaki aşağıdaki kodu,

Sheets("EVRAK").Select
    Range("B2:J30").Select
    Selection.ClearContents
    Sheets("VERİ").Select
    Range("B2").Select

Aşağıdaki gibi kısaltınca hata veriyor.

Sheets("EVRAK").Range("B2:J30").ClearContents
    Sheets("VERİ").Range("B2").Select

 

[Ömer BARAN]

Merhaba.
Kayıt işlemini yaptıktan sonra içeriğini boşaltacağınız hücreler sanırım,
EVRAK sayfası değil VERİ sayfası olması lazım ve

Sheets("VERİ").Range("B2:J30").ClearContents

şeklindeki satırda sorun yok.

Bir de sıra numarası için AKTAR makrosuna satir tespit satırından sonra aşağıdaki satırı eklemeniz yeterli olur.
Sheets("EVRAK").Cells(satir, 1) = satir - 1

Ayrıca kod'da Select yerine Activate kullanmanızı öneririm.

 

[ASLAN7410]

Sayın Ömer Bey valla süper oldu ellerinize sağlık, kaydet butonuna bastığımda EVRAK sayfasının 30.satırından sonra kaydetmesini istemiyorum ve uyarı vermesini istiyorum, bunu nasıl yaparız yardım eder misiniz?

 

[Ömer BARAN]

AKTAR kod'unu aşağıdaki şekilde değiştirerek SİLME ve satır sayısı işini de çözebilirsiniz.

Sub AKTAR()
If Sheets("EVRAK").[A65536].End(3).Row > [B][COLOR="Blue"]30[/COLOR][/B] Then
    MsgBox "KAYIT SATIRLARI DOLDU, KONTROL EDİNİZ"
    Exit Sub
ElseIf Range("B2") <> Empty Then
        satir = Sheets("EVRAK").Cells(Rows.Count, 2).End(3).Row + 1
        Sheets("EVRAK").Range("A" & satir) = satir - 1
        Sheets("EVRAK").Range("B" & satir & ":J" & satir) = WorksheetFunction.Transpose(Range("B2:B10"))
End If
Sheets("VERİ").Range("B2:B10").ClearContents[COLOR="blue"][B][SIZE="2"]'*KAYIT SONRASI VERİ SAYFASINDAKİLERİ SİL[/SIZE][/B][/COLOR]
End Sub

 

[ASLAN7410]

Valla süper bir şey oldu çok teşekkür ediyorum ellerinize sağlık Allah razı olsun, hayırlı akşamlar diliyorum.

 

[Ömer BARAN]

Kod'da küçük bir değişiklik yaptım, kontrol ediniz.

 

[ASLAN7410]

Tamamdır Ömer Bey ilgi ve alakanıza çok teşekkür ediyorum.