B sütununda ki değere göre A sütununa değer ver

[DevilishRock]

Arkadaşlar merhaba,

B sütununda 2012899000001 değeri var ve sütun boyunca 2,3 4 diye artmakda ben burada makro ile A sütununa 5. sırada ilk üç'e bakacak ve 899 ile başlıyorsa İstanbul yazsın (B sütununda ne kadar değer varsa) aynı şekilde B sütununda 2012999000001 değerleri de olacak ve o da 2,3,4 diye devam edecek ve bunda da 999 görüyorsa A sütunun da Ankara yazacak.

Bu şekilde bir makro konusunda yardıma ihtiyacım var. Mid formülü ile bu işlemi yapabiliyorum fakat makro ile bu işi yapmam benim için daha kolay olacak.

Örn: =IF(MID(B2;5;3)="899";"İstanbul";IF(MID(B2;5;3)="999";Ankara;IF(MID(B2;5;3)="799";İzmir)))

Şimdiden yardımlarınız için teşekkür ederim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SehirBul()
    
    Dim i       As Long
    Dim Deger   As Integer
    Dim Sehir   As String
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        Deger = Val(Mid(Cells(i, "B"), 5, 3))
        If Deger = 899 Then
            Sehir = "İstanbul"
        ElseIf Deger = 999 Then
            Sehir = "Ankara"
        ElseIf Deger = 799 Then
            Sehir = "İzmir"
        Else
            Sehir = ""
        End If
        Cells(i, "A") = Sehir
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlandı...."
    
End Sub

 

[DevilishRock]

Necdet bey merhaba,

Vermiş olduğunuz kodlar işimi gördü, çok teşekkür ederim. k::


İyi günler...

 

[DevilishRock]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub SehirBul()
    
    Dim i       As Long
    Dim Deger   As Integer
    Dim Sehir   As String
    
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "B").End(3).Row
        Deger = Val(Mid(Cells(i, "B"), 5, 3))
        If Deger = 899 Then
            Sehir = "İstanbul"
        ElseIf Deger = 999 Then
            Sehir = "Ankara"
        ElseIf Deger = 799 Then
            Sehir = "İzmir"
        Else
            Sehir = ""
        End If
        Cells(i, "A") = Sehir
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamlandı...."
    
End Sub

Necdet bey araştırıyorum fakat henüz bulamadım belki fikriniz vardır veya topic yönlendirmesi yapabilirseniz yine sevinirim.

C sütunun da ve D sütunun da verilerim var fakat D sütunun da boş olan hücreler oluyor dolayısı ile eğer C sütunun da dolu ise D sütununa taşısın gibi birşey...

Bu işlemde birde olabiliyorsa FPSSS6500 gibi kodlarım var bu verilerinde FPSS sabit S6500 değişken burada da S6500 önüne BG- gelmesi sağlanabilir mi?

Teşekkürler

 

[Necdet]

Merhaba,

Yeni konu için yeni başlık açınız lütfen.
Sorunuzu da örnek dosya ile destekleyiniz.

 

[DevilishRock]

Necdet bey iyi akşamlar,

Farklı bir konudan devam ettiğim için kusura bakmayın burada ki yardımınız işimi çözdü ve gayet açıkdı. Tekrar teşekkür ederim.

Konuyu da farklı bir başlıkla açtım...