KISMEN AYNI VERİYE GÖRE ÇALIŞAN MAKRO

[baydeniro]

Merhaba Arkadaşlar,
2. karakteri ne olursa olsun 1.karakteri S ise Mesaj Kutusunu göstermesi için kodu nasıl revize edilmesi konusunda yardımcı olabilecek bir arkadaş var mı !


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Offset(0, 1) = "S" & "?" Then
MsgBox ("HATALI SONUÇ")
End If
End Sub

 

[Orion1]

Buyurun.

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(UCase(Target.Offset(0, 1)), 1) = "S" Then
    MsgBox ("HATALI SONUÇ")
End If
End Sub

 

[baydeniro]

Sayın Orion1 üstadım, çok çok teşekkür ederim. Elleriniz dert görmesin. Sağlıcakla kalın.

 

[Orion1]

Sayın Orion1 üstadım, çok çok teşekkür ederim. Elleriniz dert görmesin. Sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

Üstad bir yardımınızı daha rica edebilir miyim ! İmleçin Aktif hücreden 2 hücre yukarı gitmesi için aşağıdaki gibi kodlar denedim ama olmadı.

ActiveCell.Offset((Row(UCase(ActiveCell()-2, 0)).Select

 

[Orion1]

Buyurun.

ActiveCell.Offset((-2, 0)).Select

 

[baydeniro]

Üstad İlginize çok çok teşekkür ediyorum ve çok özür diliyorum, sorumu yanlış ifade etmişim.

İmleç 25. satırda da olsa, 17. satırda da olsa hep 10. satıra gitmesi gibi bir koda ihtiyacım var.

 

[Orion1]

Üstad İlginize çok çok teşekkür ediyorum ve çok özür diliyorum, sorumu yanlış ifade etmişim.

İmleç 25. satırda da olsa, 17. satırda da olsa hep 10. satıra gitmesi gibi bir koda ihtiyacım var.

Buyurun.

cells(10,target.column).select

 

[baydeniro]

Orion1 üstadım çok çok teşekkür ediyorum, ellerinize, aklınıza sağlık, Allah ne muradınız varsa versin.

 

[Orion1]

Orion1 üstadım çok çok teşekkür ediyorum, ellerinize, aklınıza sağlık, Allah ne muradınız varsa versin.

Rica ederim.
İyi çalışmalar.