userform açılışı

[karaelmas4467]

hücre değerine göre userformun otomatik açılmasını sağlayabilirmiyiz. örnek: hücredeki değer 1000 'in altına düştüğünde userform açılsın

 

[Orion1]

Ekli dosyayı inceleyiniz.
Sayfa1 de A1 hücresine göre çalışıyor.A1 hücresi 1000 den küçükse userform aktif oluyor.

Private Sub Workbook_Open()
If ActiveSheet.Name = "Sayfa1" Then
    If Range("A1").Value < 1000 Then UserForm1.Show
End If
End Sub

Sayfa1deki kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value < 1000 Then
    If UserForm1.Visible = False Then UserForm1.Show
    Else
    If uesrform1.Visible = True Then Unload UserForm1
End If
End Sub

Sayfa2 deki kod

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A2]) Is Nothing Then Exit Sub
On Error Resume Next
If Sheets("Sayfa1").Range("A1").Value < 1000 Then
    If UserForm1.Visible = False Then UserForm1.Show
    Else
    If uesrform1.Visible = True Then Unload UserForm1
End If
End Sub

 

[karaelmas4467]

Ekli dosyayı inceleyiniz.
Sayfa1 de A1 hücresine göre çalışıyor.A1 hücresi 1000 den küçükse userform aktif oluyor.

Private Sub Workbook_Open()
If ActiveSheet.Name = "Sayfa1" Then
    If Range("A1").Value < 1000 Then UserForm1.Show
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value < 1000 Then
    If UserForm1.Visible = False Then UserForm1.Show
    Else
    If uesrform1.Visible = True Then Unload UserForm1
End If
End Sub

a1 hücresine veriyi manuel girdiğimde userform aktif oluyor. fakat a1 hücresine formul uyguladığımda formul sonucu 1000 in altında çıkınca userform açılmıyor..

 

[Orion1]

Bu durumda A1 hücresinin formülü hangi hücrelerden aldığını bilmem gerekiyor.
Yani hangi hücrelere veri giroyorsunuzda a1 hücresindeki değer değişiyor.

 

[karaelmas4467]

Bu durumda A1 hücresinin formülü hangi hücrelerden aldığını bilmem gerekiyor.
Yani hangi hücrelere veri giroyorsunuzda a1 hücresindeki değer değişiyor.

mesela; "Sayfa2!a1-Sayfa2!a2

 

[Orion1]

mesela; "Sayfa2!a1-Sayfa2!a2

Dosyayı düzenledim.
2 numaralı mesajdaki dosyayı deneyebilirsiniz.

 

[Seyit Tiken]

Bu şekilde bir kodta uygulanabilir.

Private Sub Worksheet_Calculate()
If [a1] < 1000 Then UserForm1.Show
End Sub

 

[karaelmas4467]

tşk..

cevaplar için teşekür ederim. istediğim gibi olmuştur.

 

[Emir Hüseyin Çoban]

userform1 i çalışma sayfasında buton tıklayarak çalıştırmak istersek nasıl bir kod uygulamamız gerekir

 

[mustafakoker]

userform1 i çalışma sayfasında buton tıklayarak çalıştırmak istersek nasıl bir kod uygulamamız gerekir

sayfa üstüne buton eklediğinizde Sub Dikdörtgen_Tıklat()
'
UserForm1.Show
End Sub


Formun otomatık ve exceli gizleyerek açılması

Sub autpen()
On Error Resume Next

Application.Visible = False
userform1.Show
Application.Visible = True
End Sub
excelı kaydederek kapatılması
Sub auto_close()
ActiveWorkbook.Save
Excel.Application.Application.Quit

End Sub

 

[Emir Hüseyin Çoban]

Sub userform1Calistir()
UserForm1.Show
End Sub

bu şekilde sorunumu çözdüm tşkler, çok kısa bir sürede cvp verdiniz.

 

[mustafakoker]

bu şekilde sorunumu çözdüm tşkler, çok kısa bir sürede cvp verdiniz.

Rica ederim yardımcı olabildiysem ne mutlu bana