Tüm Sayfada Bul Değiştir Yapmak

[musti13]

İyi günler arkadaşlar;

Excel bilgim orta düzeyde. VBA bilgim ise hiç yok ...

Hergün hazırladığım bir raporum var..

Burada altalta ;

İzmir
Samsun
Korfez
Kırıkkale
Mersin...

yazıyor.

Bu illerin yanına DEPO yazmam gerekiyor.

Sonuç;

İzmir - DEPO
Samsun - DEPO..... şeklinde olacak....

Bu yuzden tek tek bul değiştir yapıyorum.CTRL+F ile bul değiştir yontemini kullanıyorum.


Acaba tüm sayfada bu illeri bulup yanlarına DEPO kelimesini nasıl ekleyebilirim?
Bunu visual basic kodu ile mi yapmam gerekiyor?

Şimdiden teşekkür ederim

 

[Orion1]

İyi günler arkadaşlar;

Excel bilgim orta düzeyde. VBA bilgim ise hiç yok ...

Hergün hazırladığım bir raporum var..

Burada altalta ;

İzmir
Samsun
Korfez
Kırıkkale
Mersin...

yazıyor.

Bu illerin yanına DEPO yazmam gerekiyor.

Sonuç;

İzmir - DEPO
Samsun - DEPO..... şeklinde olacak....

Bu yuzden tektek bul değiştir yapıyorum.


Acaba tüm sayfada bu illeri bulup yanlarına DEPO kelimesini nasıl ekleyebilirim?
Bunu visual basic kodu ile mi yapmam gerekiyor?

Şimdiden teşekkür ederim

Tüm sayfa derken A1:IV65536 aralığımı diyorsunuz.
Belli bir aralık verirseniz daha doğru olur.
Çünkü yazılan kod tüm sayfada arama yaparsa dağa uzun çalışır belli bir aralıkta arama yaparsa daha kısa çalışır.

 

[İhsan Tank]

bunu makrosuz yapabilirsiniz.
dilerseniz ctrl+f yada ctrl+h tuş kombinasyonlarını kullanarak aranan değere İzmir yeni değere ise İzmir - DEPO yazarak deneyiniz tüm çalışma sayfasında değişiklik yapabilirsiniz.
eğer ki tüm çalışma kitabı yani alttaki tüm sekmelerde bu işlemi yapacak iseniz tüm sayfaları seç seçeneğinden sonra yukarıda anlattım şekilde yaparsanız tüm hepsi değişecektir.

 

[musti13]

Tüm sayfa derken A1:IV65536 aralığımı diyorsunuz.
Belli bir aralık verirseniz daha doğru olur.
Çünkü yazılan kod tüm sayfada arama yaparsa dağa uzun çalışır belli bir aralıkta arama yaparsa daha kısa çalışır.

Haklısınız..
A sütununda A1 ile A5000 arası değiştirmek istiyorum.

Normalde CTRL+F ile bul değiştir yontemini kullanıyorum.

Benim istediğim bir formul ya da kod ile bu illerin sonuna - DEPO kelimesi eklemek.

İlginiz için şimdiden çok teşekkür ederim..

 

[Orion1]

Sub ekle_59()
Dim arr(), sat As Long, hcr As Range, k As Byte
arr = Array("Samsun", "Korfez", "Kırıkkale", "Mersin")
sat = Cells(65536, "A").End(xlUp).Row
For Each hcr In Range("A1:A" & sat)
    il = UCase(Replace(Replace(hcr.Value, "ı", "I"), "i", "İ"))
    For k = LBound(arr) To UBound(arr)
        If UCase(Replace(Replace(arr(k), "ı", "I"), "i", "İ")) = il Then
            hcr.Value = hcr.Value & " - " & "DEPO"
            Exit For
        End If
    Next k
Next hcr
MsgBox "İşlem Tamamlanmışltır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[musti13]

Çok çok teşekkür ederim.

Denedim. Elinize sağlık

Bir şey daha sormak istiyorum.

Bu kodu bir excel dosyamda makro olarak kullandım.
Her rapor hazırladıgımda her yeni excel dosyasında bu kodu nasıl kullanabilirim?

Bir butona atayabilir miyim?

 

[Orion1]

Çok çok teşekkür ederim.

Denedim. Elinize sağlık

Bir şey daha sormak istiyorum.

Bu kodu bir excel dosyamda makro olarak kullandım.
Her rapor hazırladıgımda her yeni excel dosyasında bu kodu nasıl kullanabilirim?

Bir butona atayabilir miyim?

Yeni excel dosyanızda bir modül oluşturun bu kodları o modüle yapıştırın.
Aktif sayfada A sütunu için çalışacaktır.
Veya bu dosyadan bu modülü expot edin sonrada yeni dosyanıza import edin.
yada bu dosyayı xlt(eklenti olarak kaydedin.
Ejkle ile ekleyin her dosyanız da çalışacaktır.

 

[musti13]

Çok sağolun.Teşekkür ederim

Ama inanın bahsettiklerinizden anlayamıyorum

Falza bilgim yok gerçekten..