aşağıdaki vba kodunu inceleyebilirmisiniz

[tatarcık]

arkadaşlar aşağıdaki kodun en sonuna yazmış olduğum msgbox (boşhücreler gizleniyor lütfen bekleyiniz) bilgisini verdiremedim
belirtmiş bu msgbox yaptırabilirmisiniz.
teşekkürler


Sub Gizle()
Sheets("ekders bordro").Unprotect
Worksheets("ekders bordro").Select
Application.ScreenUpdating = False
For Each t In Range("b10:b850").Cells
If t.Value = "" Then 'boş hücreleri gizler'
t.EntireRow.Hidden = True
End If
Next t
Application.ScreenUpdating = True
Range("A1").Select
Sheets("ekders bordro").Protect
MsgBox "Boş Hücreler Gizlenmiştir"
End Sub
MsgBox "Boş Hücreler Gizleniyor lütfen bekleyiniz"

 

[udentr2002]

End Sub
MsgBox "Boş Hücreler Gizleniyor lütfen bekleyiniz"

iki satırın kodlarını yer değiştirip denermisiniz yani

MsgBox "Boş Hücreler Gizleniyor lütfen bekleyiniz"
End Sub
şeklinde değiştirip deneyin

 

[ceyrek]

hatta MsgBox "Boş Hücreler Gizleniyor lütfen bekleyiniz" ibaresini
Sub Gizle()
MsgBox "Boş Hücreler Gizleniyor lütfen bekleyiniz"
şeklinde koyarsanız programın akışına daha uygun olur gibi duruyor.

 

[Levent Menteşoğlu]

Msgbox eklerseniz, kodlar msgbox kapanana kadar çalışmaz. Bu sebeple userformdan bir msgbox yapın ve yukarıdaki kodları userformun activate olayına yazın.

 

[tatarcık]

her iki yöntemde olmadı

sayın udentr2002 ve sayın ceyrek belirtmiş olduğunuz iki yöntemi de denedim ama olmadı.
sayın undentr2002nin örneği msgbox bilgi veriyor ama gizleme işlemi bittikten sonra olan MsgBox "Boş Hücreler Gizlenmiştir" olarak bilgi ekranı gelmiyor.
ancak işlem tamam dedikten sonra bilgi geliyor.

 

[ceyrek]

örnek dosyanızı göndermeniz mümkünse daha iyi yardımcı olabileceğimizi düşünüyorum.

 

[hsayar]

sn tatarcık 4. mesajda sn leventm in çözümünü deneyin

 

[tatarcık]

örnek ektedir

sayın hocalarım örnek ektedir.

 

[ceyrek]

Şu şekilde yapınca bende çalıştı.

Sub Gizle()
[COLOR="Red"]MsgBox ("Boş Hücreler Gizleniyor")[/COLOR]
Sheets("ekders bordro").Unprotect
Worksheets("ekders bordro").Select
  Application.ScreenUpdating = False
  For Each t In Range("b10:b295").Cells
     If t.Value = "" Then 'boş hücreleri gizler'
     t.EntireRow.Hidden = True
  End If
  Next t
  Application.ScreenUpdating = True
  Range("A1").Select
  Sheets("ekders bordro").Protect
  MsgBox "Söz Konusu Olan Boş Hücreler Gizlenmiştir", vbInformation, "N o G a Y o Ğ L u"
End Sub

 

[tatarcık]

dediğiz şekilde kod çalışıyor ama

sayın ceyrek ilginiz için teşekkürler ama boş hücre gizleme işi bittiğinde 2. msgbox"Söz Konusu Olan Boş Hücreler Gizlenmiştir" hemen devreye girecek yani biz herhangi bir işlem yapmadan.

Şu şekilde yapınca bende çalıştı.

Sub Gizle()
[COLOR="Red"]MsgBox ("Boş Hücreler Gizleniyor")[/COLOR]
Sheets("ekders bordro").Unprotect
Worksheets("ekders bordro").Select
  Application.ScreenUpdating = False
  For Each t In Range("b10:b295").Cells
     If t.Value = "" Then 'boş hücreleri gizler'
     t.EntireRow.Hidden = True
  End If
  Next t
  Application.ScreenUpdating = True
  Range("A1").Select
  Sheets("ekders bordro").Protect
  MsgBox "Söz Konusu Olan Boş Hücreler Gizlenmiştir", vbInformation, "N o G a Y o Ğ L u"
End Sub