İlk İki harfe Göre Listeleme Yapan Makro

[nailsavas]

Merhaba ekli tabloda yer alan firma ve hesap numaralarının Ben Firma adının harflerini girmeye başlayınca bir yere yazmasını istiyorum. yardımlarınızı bekliyor Bu arada bayramınızı da kutlarım

 

[hamitcan]

Eki inceleyin.

 

[nailsavas]

Teşekkürler

Sevgili hamitcan kardeş yardımların için tekrar teşekkür ederim ellerine sağlık minnettarım..

 

[Necdet]

Merhaba,

Alternatif olarak.

Sanırım sadece "AK" ile başlayanları F sütununa yazdırmak istiyorsunuz, kodu ile birlikte. Aşığıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If UCase(Left(Target, 2)) = "AK" Then
   Satır = [E65536].End(3).Row + 1
   Cells(Satır, "E") = Target.Offset(0, -1)
   Cells(Satır, "F") = Target
End If
Son:
End Sub