Merhabalar. Ben şöyle bir excel belgesi hazırlamak istiyorum. C17 - S17 ile C165 - S165 arasındaki hüvrelerde ne kadar XXXX yazısı yada rakkamı varsa onu YYYY ile değiştirmek istiyorum. tabi bu arada bu alan arasında sadece XXXX yok. ZZZZ veya MMMM gibi farklı bilgilerde mevcut. ben sadece seçtiğimi değiştirmek istiyorum. bunu nasıl formule edebilirim... Teşekkürler
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Arama ve Komple Değiştirme
- Konbuyu başlatan boraday
- Başlangıç tarihi
Formüle Edilemez mi
merhabalar. ben kullanacak olsam sorun değil. Ctrl+F ve Ctrl+H ile sorunumu çözerim. Fakat bunu işletmede etiket basarken kullandırıcam personele. ve Excel hakkında çok fazla bilgileri yok. ve inanın 3 günde şablonu bozarlar. bu sebepten değiştirmek istedikleri kelimeyi bulup yenisini yazmalarını istiyorum. birde yazılan kelimenin içinde rakamla devamı var. onun değişmemesi lazım. etiketler sıra numaralı
Örnek : Savio:3.14 --- burada Sadece Savio:3 Yazısını Savio:4 ile değiştirip hücrenin yine Savio:4.14 olarak kalmasını istiyorum. Değiştir komutu ile bu yapılabilr mi???
merhabalar. ben kullanacak olsam sorun değil. Ctrl+F ve Ctrl+H ile sorunumu çözerim. Fakat bunu işletmede etiket basarken kullandırıcam personele. ve Excel hakkında çok fazla bilgileri yok. ve inanın 3 günde şablonu bozarlar. bu sebepten değiştirmek istedikleri kelimeyi bulup yenisini yazmalarını istiyorum. birde yazılan kelimenin içinde rakamla devamı var. onun değişmemesi lazım. etiketler sıra numaralı
Örnek : Savio:3.14 --- burada Sadece Savio:3 Yazısını Savio:4 ile değiştirip hücrenin yine Savio:4.14 olarak kalmasını istiyorum. Değiştir komutu ile bu yapılabilr mi???
- Katılım
- 18 Ağustos 2007
- Mesajlar
- 22,184
- Excel Vers. ve Dili
-
Microsoft 365 Tr
Ofis 2016 Tr
Makro kaydet yöntemiyle bunu kolaylıkla yapabilirsiniz..
Değiştireceğiniz verilerin A sütununda olduğu düşünülmüştür..
Kod:
Sub Değiştir()
Columns("A:A").Select
Selection.Replace What:="Savio:3", Replacement:="Savio:4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub
1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,717
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Sayın Espiyonajl, merhaba,
Makro Kaydet'in resimli ve uygulamalı, örnekli bir anlatımı var mı?Arşivinizde var ise rica edebilirmiyim ?
Teşekkür ederim.
- Katılım
- 18 Ağustos 2007
- Mesajlar
- 22,184
- Excel Vers. ve Dili
-
Microsoft 365 Tr
Ofis 2016 Tr
1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,717
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Sayın espiyonajl, link ve ilginiz için teşekkür ederim,
27.02.2008 de kayıt ettiğim bir dosyada, makronun nasıl kaydedileceğini gösteren bir sıralama verilmişti,
1.Tüm formullerini bir sayfaya kopyala
2. "Makro Kaydet"i çalıştır.
3. İçinde formul bulunan herbir hücrede "F2" tuşuna bas. Sonra "Enter"a bas.
4. Bunu bütün formul içeren hücrelerde tekrarla
5. "Makro Kaydet"i kapat.
6. Makroların kaydedildiği kod modülünü aç
7. Formullerin karşılığı R1C1 Başvuru biçiminde çıkacaktır. Hiç önemli değil (Eğer kopyalama yapmayacaksan tabiki) Bunlardan birini kopyala
8. Şimdi kendi projende formulün yazılmasını istediğin hücreyi belirle (Örn "V1")
9. Kodlarına aşağıdaki şekilde bir satır ilave et.
Range("V1").FormulaR1C1= <kopyaladığın formulü yapıştır>
Bu dosyada bir örnek oluşturdum, Modül1 de bir makro görülmektedir,
Ancak, aşağıdaki örnekte değişecek yer ve yerine yazılacak kodu, tahmin etmeme ve uygulamama rağmen hata mesajı aldım,
Zaman bulduğunuzda, olması gerekenleri yazarsanız sevinirim,
Sub Makro2()
Range("E19").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-18]C[-4]=R[-18]C[-3],""Eşitlik var"",""Hata Var"")"
Range("E20").Select
End Sub
Teşekkür ederim.
- Katılım
- 26 Eylül 2007
- Mesajlar
- 9,421
- Excel Vers. ve Dili
- excel 2010
merhaba
dosyadaki kod ile ne yapmaya çalıştığınızı pek anlayamadım.
aşağıdaki gibi denermisiniz
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = [b1] Then
[a5] = "eşitlik var"
Else
[a5] = "hata var"
End If
End Sub
dosyadaki kod ile ne yapmaya çalıştığınızı pek anlayamadım.
aşağıdaki gibi denermisiniz
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] = [b1] Then
[a5] = "eşitlik var"
Else
[a5] = "hata var"
End If
End Sub
1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,717
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Sayın uzmanamele, aşağıdaki formülün işlevini, makro ile yapmak ve makro kaydetme yöntemi ile gerçekleştirmek istemiştim,
=EĞER(A1=B1;"Eşitlik var";"Hata Var")
Önerilenleri adım adım yaptığımda ise , aşağıdaki kod oluşmuştu,
Sub Makro2()
Range("E19").Select
ActiveCell.FormulaR1C1 = _
"=IF(R[-18]C[-4]=R[-18]C[-3],""Eşitlik var"",""Hata Var"")"
Range("E20").Select
End Sub
bu kod üzerinde =EĞER(A1=B1;"Eşitlik var";"Hata Var") sonucunu alabilmek için gereken değişiklikleri öğrenmek istemiştim,
Teşekkür ederim.
1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,717
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Sayın espiyonajl, merhaba,
Sizi çok fazla meşgul ettiğimin farkındayım,
"Makro kaydet yöntemiyle bunu kolaylıkla yapabilirsiniz" cümlenizden cesaretle;
Yukardaki kodu elde ederken, makro kaydet kullandınız, ancak ham bilgiyi excel sayfasında nerelere yazdınız, yazdıktan sonraki aşamalar nelerdi, kısaca istek sahibi bu işlemi makro ile yapmaya kalksaydı, ilk önce ve en sonraki aralıkta sırasıyla neleri yapmalıydı?
Umarım sizi bunaltmıyorum
, kendi kendime de, "hazır bir beyefendi bulmuşken hababam sor bakalım 1Al2Ver " diyerek te serzenişte bulunuyorum...Herşey gönlünüzce olsun, saygılarımla.
- Katılım
- 18 Ağustos 2007
- Mesajlar
- 22,184
- Excel Vers. ve Dili
-
Microsoft 365 Tr
Ofis 2016 Tr
Sayın espiyonajl, merhaba,
Sizi çok fazla meşgul ettiğimin farkındayım,
"Makro kaydet yöntemiyle bunu kolaylıkla yapabilirsiniz" cümlenizden cesaretle;
Yukardaki kodu elde ederken, makro kaydet kullandınız, ancak ham bilgiyi excel sayfasında nerelere yazdınız, yazdıktan sonraki aşamalar nelerdi, kısaca istek sahibi bu işlemi makro ile yapmaya kalksaydı, ilk önce ve en sonraki aralıkta sırasıyla neleri yapmalıydı?
Umarım sizi bunaltmıyorum
Herşey gönlünüzce olsun, saygılarımla.
Sırasıyla yazmaya çalışayım;
Araçlar / Makro / Yeni Makro Kaydet işaretleyiniz.
A sütununu fare ile işaretleyiniz.
Klavyenizden CTRL H yapınız. ( Bul Değiştir )
Arana Değere Savio:3
Yeni Değere Savio:4, yazdıktan sonra Tümünü Değiştiri işaretleyiniz.
Daha sonra fare ile A1 hücresine geliniz Yani imleç A1 hücresinde olsun.
Son olarak Makro kaydeti durdurunuz.
Makro kaydet işlemi Kaset çalarda ses kaydetmek gibidir, yaptığınız bütün işlemleri VBA kodunda kaydeder..
Hata 400
yukarıdaki kodu farklı çalışma sayfalarında kullanınca 400 diye bir hata vermekte, o sayfanın olduğu yere kodu yazınca sorun olmuyor ama 16 ve daha fazla çalışma sayfam var hepsine kodu yazmadan nasıl yapa bilirim ?
Teşekkürler
Kod:
Sub Değiştir()
Columns("A:A").Select
Selection.Replace What:="Savio:3", Replacement:="Savio:4", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End SubTeşekkürler
- Katılım
- 18 Ağustos 2007
- Mesajlar
- 22,184
- Excel Vers. ve Dili
-
Microsoft 365 Tr
Ofis 2016 Tr
Birde bu şekilde deneyin. Yine hata alırsanız hata aldığınız bir dosyayı eklerseniz sevinirim.
Kod:
Sub Deneme()
For i = 1 To Worksheets.Count
Sheets(i).Cells.Replace "Savio:3", "Savio:4"
Next i
End Sub