Arama ve Komple Değiştirme

boraday · 17 Eylül 2008

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

Ömer · 17 Eylül 2008

Merhaba,

CTRL F ( Bul değiştir) ile bunu yapabilirsiniz..

Arana değere XXXX Yeni değere YYYY yazarak tümünü değiştire basınız..

boraday · 17 Eylül 2008

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???

Ömer · 17 Eylül 2008

boraday' Alıntı:
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???

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&#287;i&#351;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 · 17 Eylül 2008

espiyonajl' Alıntı:
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

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.

Ömer · 18 Eylül 2008

1Al2Ver' Alıntı:
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.

Merhaba,

Linki incelermisiniz..

Makro Kaydet Yöntemi (Resimli Anlatım)

1Al2Ver · 18 Eylül 2008

espiyonajl' Alıntı:
Merhaba,

Linki incelermisiniz..

Makro Kaydet Yöntemi (Resimli Anlatım)

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.

uzmanamele · 18 Eylül 2008

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

1Al2Ver · 18 Eylül 2008

uzmanamele' Alıntı:
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

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 · 18 Eylül 2008

espiyonajl' Alıntı:
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

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.

Ömer · 18 Eylül 2008

1Al2Ver' Alıntı:
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.

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..

karzer · 6 Ocak 2010

Hata 400

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

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

Ömer · 6 Ocak 2010

Merhaba,

Kod:

Sub Deneme()
    Cells.Replace "Savio:3", "Savio:4"
End Sub

Bu şekilde denermisiniz.

.

karzer · 6 Ocak 2010

yanıt

Hata deavam adiyor

Ömer · 6 Ocak 2010

karzer' Alıntı:
Hata deavam adiyor

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

.

Arama ve Komple Değiştirme

boraday

Ömer

Moderatör

boraday

Ömer

Moderatör

1Al2Ver

Ömer

Moderatör

1Al2Ver

uzmanamele

Uzman

1Al2Ver

1Al2Ver

Ömer

Moderatör

karzer

Ömer

Moderatör

karzer

Ömer

Moderatör