Firma ismi kontrol,yeni firmaysa veri alanlarını boşalt

[huseyin610]

Merhaba ekli sorumu anlattım.Yardımcı olursanız sevinirim.Worksheet_Change bölümüne kod yazarak halletmeye çalıştım ama başaramadım.

Saygılarımla,

 

[mancubus]

sn hüseyin. dosya eklediğimiz zaman için temsili veri olmasına dikkat edelim. bu hali ile buraya düz yazılmasından farkı yok.

önceki durum nedir, kod çalıştıktan sonra ortaya çıkmasını istediğiniz nedir? daha detay verirseniz çalışalım.

dosyada yeşil dediğiniz sarı, mavi dediğiniz turkuaz anladığım kadarı ile.

 

[huseyin610]

Anlaşılır bir şekilde tekrar gönderiyorum. Teşekkür ederim.

 

[mancubus]

aşağıdaki gibi deneyin.
mesajı vb istediğiniz şekilde düzenleyin.
sadece G7 hücresinde değişiklik olduğu takdirde çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim bul As Range
Dim ss As Long

ss = Cells(Rows.Count, 1).End(3).Row + 1
    
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$G$7" Then Exit Sub

Set bul = Range("A1:A" & ss).Find(Target, lookat:=xlWhole)

If bul Is Nothing Then
    Range("A" & ss) = Target
    Range("G8:G100") = ""
Else
    MsgBox "Firma A sütununda bulundu"
End If

End Sub

 

[huseyin610]

Çok teşekkürler ,kendi dosyama uyarladım.

 

[mancubus]

rica ederim. kolay gelsin.