Toplam 2 sonuçtan 1 ile 2 arasındakiler gösteriliyor.

Konu: CTRL+F Makrosu

  1. #1
    Kıdemli Üye
    Üyelik tarihi
    Jun 2013
    Nereden
    ANTALYA
    Versiyon
    Office 2010
    Mesajlar
    346

    CTRL+F Makrosu

    Merhabalar,

    Aşağıdaki makroyu daha kısa nasıl yazabiliriz.(Tek tek CTRL+F zor oluyor )Teşekkürler.

    Sub Makro1()
    '
    ' Makro1 Makro
    '

    '
    Cells.Replace What:="1826699940013", Replacement:="1994299940013", LookAt _
    :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Cells.Replace What:="1725899930004", Replacement:="1784399930004", LookAt _
    :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    End Sub

  2. #2
    Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    30
    selam,
    özelden konustugumuz ve buldugumuz çözümü forumda da paylaşıyorum.
    soru başlığınızı çoklu bul değiştir / çoklu CTRL+H gibi bir şey yaparsanız aramalarda daha verimli olur.

    degistirilecek verileri neyle degisecekse tablo yapalim

    örneğin:
    a1=elma b1=armut
    a2=kavun b2=karpuz

    makroyu calistiralim acilan input 'a elma ve armut gibi degisecek verilerin yer aldigi alani mausla secelim. tamami tiklayalim
    ikinci input a olusturdugumuz tablo alanini secelim. tamami tiklayalim.

    Kod:
    Sub coklu_bul_degistir()Dim Rng As Range
    Dim InputRng As Range, ReplaceRng As Range
    xTitleId = "Bul_Degistir"
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Deger Alani Sec", xTitleId, InputRng.Address, Type:=8)
    Set ReplaceRng = Application.InputBox("Yeni Deger Tablosunu Sec :", xTitleId, Type:=8)
    Application.ScreenUpdating = False
    For Each Rng In ReplaceRng.Columns(1).Cells
        InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
    Next
    Application.ScreenUpdating = True
    End Sub

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •