Birden Fazla Koşul Yazma

[gozdeyagci]

Öncelikle merhaba ben çalışma dosyamda yer alan F sütunundaki Boş alanlara PLT, 212 yazanlara 2120, 321 yazana 3211, 431 yazana 4311, 432 yazana 4322, 462 yazana 4622 yazmasını istiyorum. Acaba bunu nasıl yapabilirim?

Eğer buna benzer bir konu açıldıysa link almam mümkün mü?

 

[gozdeyagci]

Arkadaşlar tekrar merhaba sorumun yanıtını forumun sayfalarını karştırınca buldum Aşağıdaki kodu uyarlayarak buldum. İsterseniz konuyu silebilirsiniz. Aynı konu forumda mevcuttur.

Sub kod_bir()
aa = [a65536].End(3).Row

For i = 1 To aa

If Cells(i, "a") Like "0 (53" & "*" Then
Cells(i, "b") = "turkcell"
End If

If Cells(i, "a") Like "0 (54" & "*" Then
Cells(i, "b") = "vodafone"
End If

If Cells(i, "a") Like "0 (55" & "*" Or Cells(i, "a") Like "0 (50" & "*" Then
Cells(i, "b") = "avea"
End If


Next i
End Sub