Hey there!

It looks like you're enjoying Hesaptablosu - Akademik Excel Forumu but haven't created an account yet. Why not take a minute to register for your own free account now? As a member you get free access to all of our forums and posts plus the ability to post your own messages, communicate directly with other members and much more. Register now!

Already a member? Login at the top of this page to stop seeing this message.

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
  •