Çözüldü Farklı Dosyadaki Hücre İçerisindeki Formülü Görme

Merhaba

İsteğiniz tam anlaşılmıyor.

Ahmet' Alıntı:

Merhaba

İsteğiniz tam anlaşılmıyor.

Genişletmek için tıkla...

örnek üzerinden gidelim hocam.

sayfa1 A1 hücrsinde =B1 yazan formül var

sayfa2 A1 hücresinde metin olarak bu formülü (=b1 şeklinde) görmek istiyorum

mümkün müdür acaba?

HTML:

azraep' Alıntı:

HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

hocam denedim olmadı
sanırım 2010 verisyonunda =FORMÜLMETNİ( yok

azraep' Alıntı:

küçük bir fonksiyon buldum
bunu bir modül ekleyip kullanabilirsiniz
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

Genişletmek için tıkla...

='D:\Epak Ambalaj\2023\Müşteriler\[Adamert AmbalajX.xlsm]Cari'!$CZ$502
buna göre nasıl yapabiliriz acaba

yani farklı dosyadan çekmemiz gerekiyor

barış kaya' Alıntı:

='D:\Epak Ambalaj\2023\Müşteriler\[Adamert AmbalajX.xlsm]Cari'!$CZ$502
buna göre nasıl yapabiliriz acaba

yani farklı dosyadan çekmemiz gerekiyor

Genişletmek için tıkla...

elimde hazır modüle nasıl uyarlayabiliriz?
mümkünse D hücresine uygulayabiliriz

Sub Sil()
Dim sh As Worksheet
Set sh = Sheets("Tahsilat")
sh.Range("A3:M10000").ClearContents
ActiveWorkbook.Save
End Sub

Sub TutarAl()
Dim i As Long
For i = 3 To 100000
If Tahsilat.Range("B" & i).Value = "" Then
Exit Sub
Else
Tahsilat.Range("A" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$19"
Tahsilat.Range("C" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$20"
Tahsilat.Range("D" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$12"
Tahsilat.Range("E" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$21"
Tahsilat.Range("F" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$22"
Tahsilat.Range("G" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$24"
Tahsilat.Range("H" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$25"
Tahsilat.Range("I" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$26"
Tahsilat.Range("J" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$27"
Tahsilat.Range("K" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$28"
Tahsilat.Range("L" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$29"
Tahsilat.Range("M" & i).Value = "='D:\Epak Ambalaj\2023\Müşteriler\" & "[" & Tahsilat.Range("B" & i).Value & "]" & "Bilgi'!$B$30"
End If
Next i

End Sub
Sub Dosyalar()
Dim STR As Long, YL As String, DSY As String
STR = 3
YL = "D:\Epak Ambalaj\2023\Müşteriler\"
DSY = Dir(YL, vbNormal)
Do While DSY <> ""
With WorksheetFunction
If (GetAttr(YL & DSY) And vbNormal) = vbNormal Then
Cells(STR, "B") = Replace(DSY, Right(DSY, Len(DSY) - _
.Find("", .Substitute(DSY, ".", "", Len(DSY) - Len( _
.Substitute(DSY, ".", "")))) + 1), "")
STR = STR + 1
End If: End With
DSY = Dir
Loop

End Sub

bu konuda diğer hocalarımızdan yardm istemek gerek
kapalı dosyalarda pek bilgim yok malesef

azraep' Alıntı:

bu konuda diğer hocalarımızdan yardm istemek gerek
kapalı dosyalarda pek bilgim yok malesef

Genişletmek için tıkla...

ilginiz için çok teşekkür ediyorum hocam

barış kaya' Alıntı:

ilginiz için çok teşekkür ediyorum hocam

Genişletmek için tıkla...

Rica ederim.