otomatik anımsayıcıda ufak bir düzenleme

[jambow]

arkadaşlar aşağıdaki otomatik anımsatıcıda küçük bir değişiklik yapabilirmiyiz

delete tuşuna basınca form otomatik olarak açılıyor bu özelliği iptal etmek istiyorum ancak yapamadım yardımcı olacak arkadaşa şimdiden teşekkürler

 

[hamitcan]

Koda bir satır ekledim, galiba doğru çalışıyor. Ama tam deneme fırsatım olmadı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not UserForm1.ListBox1.Tag = "off" Then
If Intersect(Target, Range("b5:b20")) Is Nothing Then Exit Sub
Dim deger As Range
sayac = 0
derlenen = Target.Address

bakilan = UCase(Replace(Replace(Target.Value, "i", "İ"), "ı", "I"))

[b][color=red]If Target.Value = Empty Then Exit Sub[/color][/b]

For Each deger In Sheets("Sayfa2").Range("g5:h85")
If Not IsEmpty(deger.Value) And Left(deger.Value, Len(bakilan)) = bakilan Then

    sayac = sayac + 1
    sonuc = deger.Value
    
    If sayac = 1 Then
    UserForm1.ListBox1.Clear
    End If
    
    UserForm1.ListBox1.AddItem deger.Value

End If

Next

If sayac > 1 Then
UserForm1.Tag = derlenen
UserForm1.ListBox1.Tag = "off"

UserForm1.Top = 1
UserForm1.Left = 1
UserForm1.Show
ElseIf sayac = 1 Then
Range(derlenen) = sonuc
End If

Else
UserForm1.ListBox1.Tag = ""

End If

End Sub

 

[jambow]

kod çalışıyor tşk

ancak ben user formu butonla açmak istiyorum böyle yaptığımda hata veriyor

dosya ekte

 

[Skorpiyon]

Sayın jambow,

Kodlarınızı revize etmeye çalıştık. Butona basınca form açılıyor. Yalnız hangi hücre aktifse, seçim o hücreye yazdırılıyor.