• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

barış kaya

Gold Üye
Katılım
25 Ağu 2021
Mesajlar
151
Aldığı beğeni
23
Excel V
Office 2010 TR
Gold Bitiş
6 Kasım 2025
Konu Sahibi
Hayırlı sabahlar hocalarım.

Farklı bir dosyadaki hücre içerisindeki formülün ne olduğunu görmemiz mümkün müdür?
 
Merhaba

İsteğiniz tam anlaşılmıyor.
 
Konu Sahibi
Merhaba

İsteğiniz tam anlaşılmıyor.
ö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:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
küçük bir fonksiyon buldum
bunu bir modül ekleyip kullanabilirsiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Çözüm
Konu Sahibi
küçük bir fonksiyon buldum
bunu bir modül ekleyip kullanabilirsiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
='D:\Epak Ambalaj\2023\Müşteriler\[Adamert AmbalajX.xlsm]Cari'!$CZ$502
buna göre nasıl yapabiliriz acaba

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

yani farklı dosyadan çekmemiz gerekiyor
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
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst