BİRDEN FAZLA EXCELL ÇALIŞMA KİTABINDAKİ BİR VERİYİ DEĞİŞTİR İLE BAŞKA VERİ İLE DEĞİŞME

Katılım
13 Haziran 2009
Mesajlar
35
Excel Vers. ve Dili
türkçe
Altın Üyelik Bitiş Tarihi
14-11-2023
Merhaba;

Elimde 229 tane farklı çalışma kitabı var. Hepsinde ki YUSUF METİNER verisini YUSUF KENAN METİNER olarak nasıl değişebilirim.

Teşekkürler
 
Katılım
13 Temmuz 2016
Mesajlar
613
Excel Vers. ve Dili
Excel 2010 & 2016 Türkçe
Altın Üyelik Bitiş Tarihi
06-03-2020
Aşağıdaki kodu deneyebilirsiniz
Korunan sayfalar varsa kod başarısız olur.

Kod:
sub buldeğiştir()

Dim strPath As String
    Dim strFile As String
    Dim wbk As Workbook
    Dim wsh As Worksheet
    Dim strFind As String
    Dim strReplace As String
    strFind = InputBox("Enter text to find")
    If strFind = "" Then
        MsgBox "Bulunacak metni girin", vbExclamation
        Exit Sub
    End If
    strReplace = InputBox("Değiştirme metnini girin ")
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then
            strPath = .SelectedItems(1)
        Else
            MsgBox "Klasör seçilmedi!", vbExclamation
            Exit Sub
        End If
    End With
    If Right(strPath, 1) <> "\" Then
        strPath = strPath & "\"
    End If
    Application.ScreenUpdating = False
    strFile = Dir(strPath & "*.xlsx*")
    Do While strFile <> ""
        Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False)
        For Each wsh In wbk.Worksheets
            wsh.Cells.Replace What:=strFind, Replacement:=strReplace, _
                LookAt:=xlWhole, MatchCase:=False
        Next wsh
        wbk.Close SaveChanges:=True
        strFile = Dir
    Loop
    Application.ScreenUpdating = True
    end sub
 
Katılım
9 Aralık 2018
Mesajlar
363
Excel Vers. ve Dili
Excel 2019 - 32 bit TR
Altın Üyelik Bitiş Tarihi
10-06-2024
Değişikliği yapılacak olan metin korumasız bir sayfada olsa dahi kod başarısız mı olur?
 
Üst