Koşullu Otomatik Tamamlama

[baydeniro]

Merhaba arkadaşlar. J sütunundaki bir hücreye "Harf" yazılırsa sağındaki (K sütunu) G sütunundaki hücrede yazılı olan metnin soldan 1. harfini yazması otomatik olarak sağlanabilir mi ?

 

[BG]

Sayın serdarokan

Merhaba arkadaşlar. J sütunundaki bir hücreye "Harf" yazılırsa sağındaki (K sütunu) G sütunundaki hücrede yazılı olan metnin soldan 1. harfini yazması otomatik olarak sağlanabilir mi ?

Örnek : =soldan(K1;1) veya =parçaal(K1;1;1) fonksiyonlarını kullanabilirsiniz.

 

[baydeniro]

Sayın brain ilginiz için çok teşekkür ederim. Bu konu açısından gerekli olan bir makro kodu. Yani J sütununda bir hücreye Harf ibaresi yazıldığında G deki veriye göre K'ya sizin de belirttiğimiz formülasyonu kullanan bir makro kodu gerekli.

 

[ozgretmen]

Dosyaya bakar mısınız ?

 

[baydeniro]

Sayın ozogretmen ilginize çok teşekkür ederim. İşin ilginci K sütununa formül ile değil makro ile gelmesi gibi bir durum söz konusu !!

 

[ozgretmen]

Aşağıdaki kodu sayfanın kod bölümüne ekleyiniz.iyi çalışmalar..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [j1:j20]) Is Nothing Then Exit Sub
If Cells(ActiveCell.Row - 1, 10) = "Harf" Then
Cells(ActiveCell.Row - 1, 11).Value = Left(Cells(ActiveCell.Row - 1, 7).Value, 1)
End If
End Sub

 

[baydeniro]

Sayın ozogretmen çok çok teşekkür ederim. Ellerinize, aklınıza sağlık. Allah işinizi gücünüzü rast getirsin. Sağlıcakla kalın.