Veri girilen satırın karşılığına, otm. karakter koydurma

[EKREM1661]

Çok değerli arkadaşlar..! Herkese selam..

Bir uygulama içerisinde şöyle bir mantığı makroya çevirmek istiyorum..

Örneğin, Sayfa1'de "A:W" aralığında alt alta girilen kayıtlar var,

En son dolu satırın "A" sütunu(sıra numarası) dolu ise,
ve bahsedilen son satırın "T" sütununa da veri girilince,
ilgili satırın "X" sütununa .(nokta) atsın..
Fakat, Eğer nokta var ise (dolu ise), tekrar üzerine nokta atmasın, yani makro çalışmasın..

 

[Ferhat Pazarçevirdi]

İşlemleri yapacağınız sayfanın kod modülüne aşağıdaki kodları yapıştırın

Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Target
        If .Column = 20 Or .Column = 1 Then
            If Len(Cells(.Row, "A")) > 0 And _
                Len(Cells(.Row, "T")) > 0 And _
                    Len(Cells(.Row, "X")) = 0 Then
                
                Application.EnableEvents = False
                Cells(.Row, "X") = "."
                Application.EnableEvents = True
            
            End If
        End If
    End With
 
End Sub

 

[EKREM1661]

Çok değerli hocam Sn.Ferhat Pazarçevirdi..!

Tam ifade edemediğimden kuşkulu idim, Ancak, buna rağmen kusursuz ve tam istediğim gibi olmuş..

Minnet duygularımla tam teşekkürlerimi ifade ederek, elinize ve bilginize sağlık diyorum ve sağlık, afiyet diliyorum.. Hayırlı akşamlar ve iyi çalışmalar..