Karşılık gelen sütuna otm.olarak karakter girilmesi

[EKREM1661]

Değerli arkadaşlar..! Herkese iyi çalışmalar dileğiyle;

A sütunu dolu ise, karşılığı Z sütunundaki hücreye X atsın.
Ancak son dolu satır bunun dışında kalsın.. Sayfanın Worksheet_SelectionChange olayına böyle bir kod nasıl yazarız.. Örnekte daha iyi anlaşılacak..

 

[Huseyinkis]

Değerli arkadaşlar..! Herkese iyi çalışmalar dileğiyle;

A sütunu dolu ise, karşılığı Z sütunundaki hücreye X atsın.
Ancak son dolu satır bunun dışında kalsın.. Sayfanın Worksheet_SelectionChange olayına böyle bir kod nasıl yazarız.. Örnekte daha iyi anlaşılacak..

ekli kodları denermisin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 2 To Range("A65536").End(3).Row - 1
If Cells(i, 1).Value <> "" Then
Cells(i, 26).Value = "X"
End If
Next

End Sub

 

[EKREM1661]

Sn.Huseyinkis çok teşekkür ediyorum.. İyi akşamlar dileğiyle, Hoşça kalınız..