• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

G sütunundaki değer

  • Konbuyu başlatan Konbuyu başlatan k0081
  • Başlangıç tarihi Başlangıç tarihi
Katılım
17 Haziran 2008
Mesajlar
1,874
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Merhaba arkadaşlar;

G sütunu içinde : L50 *5 ifadesi varsa bunu L 50*50*5 olarak değiştiren bir macro yapılabilirmi. yeşil renkte verdiğim örnek değer de; L ve * yıldız yeri sabit olup sayılar değişkendir..

yardımcı arkadaşa şimdiden teşekkürler..
 
Bul>Değiştir yapmayı denediniz mi ?
 
Sayın Hamitcan'ın önerisinde şu nokta unutulmamalıdır:

eğer sütunda L50*50*5 olan hücreler de varsa ve siz bul/değiştirden L50*5'leri L50*50*5 olarak değiştirtirseniz sadece L50*5 olan hücreler L50*50*5 olacaktır ama bu arada maalesef L50*50*5 olan hücreler de L50*50*50*5 olacaktır. Bunun önüne geçmek için tümünü değiştir değil, sırayla bul ve değiştir demelisiniz.
 
Sayın Hamitcan'ın önerisinde şu nokta unutulmamalıdır:

eğer sütunda L50*50*5 olan hücreler de varsa ve siz bul/değiştirden L50*5'leri L50*50*5 olarak değiştirtirseniz sadece L50*5 olan hücreler L50*50*5 olacaktır ama bu arada maalesef L50*50*5 olan hücreler de L50*50*50*5 olacaktır. Bunun önüne geçmek için tümünü değiştir değil, sırayla bul ve değiştir demelisiniz.
***********
macro ile yapmam gerekiyor arkadaşlar.. :(
 
Hücrelerde sadece bu veri "L50 *5" mi var ?
 
Hücrelerde sadece bu veri "L50 *5" mi var ?


Evet hocam.. yalnız G sütununda başka satırlarda değerler var.. bir resim dosyası ekliyorum.. bahsettiğim L50 *5 değeri herzaman aynı yerde değil.. başka satırlarda da olabiliyor.. ama her zaman G sütununda. bir de ilk mesajımda bahsettiğim format önemli...
2012-04-12_123732.jpg
 
Son düzenleme:
Deneyiniz....
Kod:
[SIZE="2"]sub emre()
dim i as integer
for i = 2 to range("g65536").end(3).row
if cells(i,"g") = "L50 *5" then
cells(i,"g") = "L 50*50*5" 
end if
next i:i = empty
end sub[/SIZE]
 
Murat OSMA;
**********
Hocam çok teşekkürler.. tamamdır..
 
Rica ederim k0081, iyi günler...
 
Geri
Üst