Aynı klasördeki dosyalarda Hücre verisi değişikliği

[mfatihk]

Merhaba,
Aynı klasördeki excel dosyalarında, Hücre verisi değişikliği yapmak istiyorum.
D24 hücresindeki yazan verinin silinip yerine =EĞERHATA(DÜŞEYARA("sirket personeli";K1:L1000;2;0);"") gelmesini istiyorum. yardımcı olabilirmisiniz. Nasıl yapabilirim? İlginize şimdiden teşekkür ederim.

 

[mfatihk]

Aramalarda istediğim sonucu bulamadım. Yanlış mı arıyorum?

 

[RBozkurt]

Deneyiniz.

Seçilecek klasörü sorar, Değiştirilecek hücreyi ve değeri de sorarak işlem yapar.
Denedim problem yok.
Bir chatgpt ürünüdür

Sub ChangeCellValueInFolder()
    Dim folderPath As String
    Dim file As String
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetCell As String
    Dim targetValue As String
   
    folderPath = BrowseForFolder() 'Kullanıcının seçtiği klasör yolu
    targetCell = InputBox("Lütfen değiştirilecek hücreyi girin (örn: A1)")
    targetValue = InputBox("Lütfen hücreye girilecek değeri girin")
   
    If folderPath = "" Then 'Klasör seçilmemişse uyarı ver
        MsgBox "Klasör seçmediniz. Lütfen işlemi tekrar deneyin."
        Exit Sub
    End If
   
    file = Dir(folderPath & "*.xlsx")
    Do While file <> ""
        Set wb = Workbooks.Open(folderPath & file)
        Set ws = wb.ActiveSheet
        On Error Resume Next
        ws.Range(targetCell).Value = targetValue
        On Error GoTo 0
        wb.Close SaveChanges:=True
        file = Dir()
    Loop
    MsgBox "Değiştirme işlemi tamamlandı."
End Sub

Function BrowseForFolder(Optional OpenAt As Variant) As String
    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Lütfen değiştirilecek dosyaların bulunduğu klasörü seçin", 0, OpenAt)
    On Error Resume Next
    BrowseForFolder = ShellApp.self.Path
    On Error GoTo 0
    Set ShellApp = Nothing
    If Right$(BrowseForFolder, 1) <> "\" Then
        BrowseForFolder = BrowseForFolder + "\"
    End If
End Function

 

[mfatihk]

Hocam teşekkür ederim. Geç gördüm. Ellerinize sağlık.