B1 hücresi boşsa Userform açılmasın

[imdatsaral]

Günaydın arkadaşlar,

Başlıktada belirtiğim gibi B1 hücresi boşsa Userformun açılmasını istemiyorum.
yardımcı olacak arkaşlara şimdiden teşekkür ederim

 

[bmutlu966]

User Formu başlatan komut satırını aşağıdaki gibi değiştirin

if [B1]<> 0 Then Userform1.Show

 

[fedeal]

buton yardımıyla açıyorsanız:
Private Sub CommandButton1_Click()
If Sheets("Sayfa1").Range("B1").Value <> "" Then
UserForm1.Show 0
Else
End If
End Sub
açılışta açıyorsanız:
Sub AUTO_OPEN()
If Sheets("Sayfa1").Range("B1").Value <> "" Then
UserForm1.Show 0
Else
End If
End Sub

 

[imdatsaral]

Sayın bmutlu966 ve fedeal çok teşekkür ederim.

 

[ReBiwAr]

Alternatif makro:

Sub ac()
If Cells(1, 2) > 0 Then
UserForm1.Show
Else
End If
End Sub

 

[imdatsaral]

Arkadaşlar,
Sub SeriNumarasi()
Dim SerialNumber As Long
GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, _
0, 0, vbNullString, 0
[A1] = SerialNumber

Bu makroda a1 hücresi dolu olduğunda a2 ye yani dolu hücrenin bir altına yazdırabilirmizi.