• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Makro atanmış düğmeyi koşullu olarak aktif/deaktif hale getirme

Katılım
21 Nisan 2015
Mesajlar
24
Excel Vers. ve Dili
2013 Türkçe
Merhabalar arkadaşlar,
Bir kaç satırdan oluşan excel sayfama kaydet butonu ekledim.
Bu kaydet butonu 2. sayfaya veri kaydetmektedir.
Zorunlu alanlar eksik girildiği zaman deaktif olmasını istiyorum
Nasıl yapabilirim.
Örnek dosya ektedir.
 

Ekli dosyalar

Son düzenleme:
. . .

Tıklanınca uyarı veren sistem işinizi görür mü.

Kod:
Sub Makro1()
    
    For i = 2 To 5
        If i = 4 Then
            GoTo atla
        End If
        

        If Cells(i, "C") = "" Then
            MsgBox Cells(i, "B") & Chr(10) & "Alanı Boş Geçilemez...", vbCritical
            Cells(i, "C").Select
            Exit Sub
        End If
atla:
    Next i
    
    Range("C2:C5").Select
    Selection.Copy
    Sheets("Sayfa2").Select
    Application.Goto Reference:="R9999C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=True
    Sheets("Sayfa1").Select
    Application.CutCopyMode = False
    Range("C2").Select

End Sub

. . .
 
Beklentimin üzerinde iş görür hemde :) Teşekkür ederim istediğimden daha iyi oldu.
 
Siz buradayken aklımdaki tüm soruları mı sorsam ney :)
 
Geri
Üst