3 harfini yazdığım zaman 3 harfi tutan bayrakları sıralama

[sinnernekolens]

Değerli arkadaşlar;
1. M4 hücresine Bayrak ismi yazarken ilk 3 harfini yazdığım zaman 3 harfi tutan bayrakları sıralamasını istiyorum. (bayrak listesi T sütunundadır.)

2. Normalde L21-L22-L23 / M21-M22-M23 hücrelerinde bilgiler giriyoruz. bazende boş kalması gerekiyor. Boş kaldığı zaman yandaki birleştirilmiş tutanak da boşluk oluşuyor örnek yukarda olduğu gibi (SIKKA limanından getirmiş olduğu toplam manifesto miktarı) gibi görünüyor. bunun çaresi var mıdır?

yardımlarınızı rica ederim

 

[Orion1]

Ekteki dosyadaki gibimi?
Oradaki textboxa ülke isimlerini giriniz.

Private Sub TextBox1_Change()
Dim sonsat As Long, bayrak As String
sonsat = Cells(Rows.Count, "T").End(xlUp).Row
Range("M4").Value = TextBox1.Value
sat = 4
Range("P4:P" & Rows.Count).ClearContents
If Len(TextBox1.Value) >= 3 Then
    For i = 2 To sonsat
        bayrak = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
        If Cells(i, "T").Value Like bayrak & "*" Then
            Cells(sat, "P").Value = Cells(i, "T").Value
            sat = sat + 1
        End If
    Next i
End If
End Sub

 

[sakman26]

selam,
anladığım kadarıyla
dosyanız ektedir..
kolay gelsin..

 

[sinnernekolens]

Yardimlarınız için teşekkür ederim sekman26 nın yaptığı tam istediğim gibi oldu çok sağolun.