Aşırı gelişmiş filitre ama nasıl

[zodehala]

Ekte gönderdiğim dosya da ülke sutununa göre filitre oluşturmak istiyorum ama şu şekilde çalışacak.

Ülke sutununda sonu -mobile kelimesi ile biten tüm satırların (hücrelerin) bi solundaki hücreye GSM kelimesi gelicek şekilde nasıl yaparım

(dosyayı inclerseniz İlk satırda örnek verilmiştir)

 

[fedeal]

Filitre derken mobile yazan hücrenin solundaki hücreye "gsm" yazdırmak istiyorsanız alttaki kod işinizi görebilir.

Sub n()
For i = 2 To Cells(65536, 1).End(xlUp).Row
If Right(Cells(i, 3).Value, 6) = "Mobile" Then Cells(i, 2).Value = "GSM"
If Right(Cells(i, 3).Value, 6) = "Proper" Then Cells(i, 2).Value = "Proper"
Next
End Sub

 

[ShodoW]

Sanırım Sorunun cevabı

Sanırım sorunun cevabı ekteki gibi ben fitrelemeden yaptım macro olarak nasıl çalışır bende merak ettim.

 

[zodehala]

Filitre derken mobile yazan hücrenin solundaki hücreye "gsm" yazdırmak istiyorsanız alttaki kod işinizi görebilir.

Sub n()
For i = 2 To Cells(65536, 1).End(xlUp).Row
If Right(Cells(i, 3).Value, 6) = "Mobile" Then Cells(i, 2).Value = "GSM"
If Right(Cells(i, 3).Value, 6) = "Proper" Then Cells(i, 2).Value = "Proper"
Next
End Sub

kodu nasıl çalıştıracağım

 

[Korhan Ayhan]

Selamlar,

Bu işlemi filtreleme ile rahatlıkla yapabilirsiniz. Aşağıdaki yolları sırasıyla takip edin.

C1 hücresini seçin.
VERİ-FİLTRE UYGULA-OTOMATİK FİLTRE UYGULA mensünü açın.
Filtre okları aktif hale gelecektir.
C1 hücresindeki filtre okuna tıklayın. Açılan menüden "Özel" seçeneğini seçin.
Açılan pencerede ilk kutucuktan "İle biter" seçeneğini seçin.
Yanındaki kutucuğada "mobile" yazıp tamam tuşuna tıklayın.
Bu şekilde verileri süzmüş olursunuz.
Şimdi "B" sütununa "GSM" yazmak için süzülen alanın "B" sütunundaki görünen alanı mouse ile seçin.
Klavyeden "GSM" yazın ve CTRL+ENTER tuşlarına basarak işlemi sonlandırın.

 

[zodehala]

Eyvallah koray bu çok güzel oldu

 

[fedeal]

Sanırım sorunun cevabı ekteki gibi ben fitrelemeden yaptım macro olarak nasıl çalışır bende merak ettim.

2.mesaja dosya ekledim.