[ÇÖZÜLDÜ] Karaktere Makro Atamak

[3641]

Ekli dosyadada açıklamaya çalıştığım gibi karaktere makro atamak konusunda yardımınıza ihtiyacım var.

İlgili arkadaşlara şimdiden teşekkür ederim.

Saygılarımla

 

[hamitcan]

Aslında metin aynı olduğu için kod biraz daha sadeleşebilir di.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    With Sheets("ÖZEL ŞARTLAR")
    Select Case Target
        Case Is = "1qw":  .Range("A" & .Columns(1).Find(30).Row - 4 & _
                                ":A" & .Columns(1).Find(30).Row).Copy Target
        Case Is = "1as":  .Range("A" & .Columns(1).Find(60).Row - 4 & _
                                ":A" & .Columns(1).Find(60).Row).Copy Target
        Case Is = "1zx":  .Range("A" & .Columns(1).Find(75).Row - 4 & _
                                ":A" & .Columns(1).Find(75).Row).Copy Target
        Case Is = "1qa":  .Range("A" & .Columns(1).Find(90).Row - 4 & _
                                ":A" & .Columns(1).Find(90).Row).Copy Target
    End Select
    End With
End Sub

 

[3641]

Sayın hamitcan bey
Göndermiş Olduğunuz Kod Çalışıyor Teşekkür Ederim.

Öğrenmek Adına


Find(30)
Row - 4 &

Neleri İfade Ediyor Acaba

 

[hamitcan]

Find(30): 30 sayısını bulur.
Row-4: 4 satır öncesi anlamına gelir.

 

[3641]

Çok Teşekkür ederim.

Saygılarımla,