Sütundaki hücreleri sola ve sağa yanaşık

[nane]

Merhabalar,
R5 hücresinden itibaren R sütünunda Bazı hücrelerde Borç, bazılarında ise Alacak yazıyor. R sütünun da Borç yazan hücreler Sola yanaşık normal, Alacak yazan hücreler ise soldan 5 girinti yani sağa doğru yanaşık olsun aynı zamanda I7 hücresinden itibaren de açıklamalar var onlar da R hücresindeki değerlere bağlı olarak göre Sola ve Soldan 5 girintili olacak.

Eğer girinti olayı olmuyorsa tamamen sağa yanaşık da olabilir.
Yardımlarınız için şimdiden teşekkürler
Yb®

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "Alacak" Then
Target.NumberFormat = "     @"
End If
If Not Target.Value = "Alacak" Then
Target.NumberFormat = "General"
End If
End Sub

 

[nane]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "Alacak" Then
Target.NumberFormat = "     @"
End If
If Not Target.Value = "Alacak" Then
Target.NumberFormat = "General"
End If
End Sub

Seyit Tiken,
teşekkürler,
Sorumun devamı olan I7,..I15000 hücrelerini de borç alacak hücresine bağlı olarak yani Alacak olan hücrelere bakarak sağa 5 imleç olarak yapabilirmisiniz ?
Allah sizden razı olsun ellerinize sağlık
Yb®

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I7:I10000,R5:R10000]) Is Nothing Then Exit Sub
If Target.Value = "Alacak" Then
Target.NumberFormat = "     @"
End If
If Not Target.Value = "Alacak" Then
Target.NumberFormat = "General"
End If
End Sub

 

[nane]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [I7:I10000,R5:R10000]) Is Nothing Then Exit Sub
If Target.Value = "Alacak" Then
Target.NumberFormat = "     @"
End If
If Not Target.Value = "Alacak" Then
Target.NumberFormat = "General"
End If
End Sub

I sütununda herhangi bir işlem yapmıyor.
teşekkürler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Sutunlari_Duzenle()
    Dim X As Long
    
    For X = 5 To Cells(Rows.Count, "R").End(3).Row
        If Cells(X, "R") = "Borç" Then
            Cells(X, "R").NumberFormat = "General"
            Cells(X, "I").NumberFormat = "General"
        End If
        If Cells(X, "R") = "Alacak" Then
            Cells(X, "R").NumberFormat = "     @"
            Cells(X, "I").NumberFormat = "     @"
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[nane]

Korhan Ayhan,
teşekkürler oldu. Fakat bir butona bağlamak suretiyle, bunu Seyit Tiken beyin verdiği gibi direk veri girildiğinde kendi düzenlenecek halde yapabilirmiyiz ?
Teşekkürler
Yb®

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("R5:R" & Rows.Count)) Is Nothing Then Exit Sub
    If Target = "Borç" Then
        Target.NumberFormat = "General"
        Cells(Target.Row, "I").NumberFormat = "General"
    End If
    If Target = "Alacak" Then
        Target.NumberFormat = "     @"
        Cells(Target.Row, "I").NumberFormat = "     @"
    End If
End Sub

 

[nane]

Korhan bey ve Seyit bey teşekkürler,
güzel oldu

Yb®