kapalı kitapa link ve formül kopyalama

[akd44]

s.a herkese günaydın ase adlı bir klasör var içinde hesap müşteri ekle diye bir kitap var müşteri ekledigim zaman kitap ismi ve sayfa ismi aynı isimle kaydediliyor
benim istediğim kayıt yapıldıkdan sonra hesap klasörüne sayfa veya kitap ismini köprü kursun kayıt edilen sayfanın k4 hücresindeki formülü kopyalasın
şimden ilgilenen arkadaşlar teşekkür ederim

 

[akd44]

arkadaşlar yardım edecek kimse yokmu

 

[parametre]

sorunun yeterince acık değil kendin anladıgın şekilde değil burada işleri olup fırsat buldukca yardımcı olmaya calısan arkadaslarımız var ona gore sorunuzu hazırlayınız

 

[akd44]

sorunun yeterince acık değil kendin anladıgın şekilde değil burada işleri olup fırsat buldukca yardımcı olmaya calısan arkadaslarımız var ona gore sorunuzu hazırlayınız

sayın parametre dosyayı indirdiginizde göreceksiniz müşteri ekle kitabında formu açıp müşteriyi eklediğim zaman hesap adlı kitapta oldugu gibi link ve kayıt edilen kitabın k4 hücresindeki (formülü)kopyalaması örnek: ben akd44 adlı firmayı kayıt ettim o kitabın linkini ve dediğim formülü hesap kitabına eklesin 2. firmayı ekledim mesela excelwebtr bukitabın linkini ve k4 deki formülünü hesap kitabına atsın
NOT:klasörü D: indirin çalışması için ilginiz için teşekkürler

yeni dosya ektedir

 

[akd44]

lütfen yardım edin üstadlar

 

[akd44]

syn parametre sizin kapalı dosyalarda ii bi eyitimiz var gördügüm kadarıyla bu makroyu formda aradım bulamadım sizden yardım istiyorum

 

[halit3]

userformdaki kodunuzu aşağıdaki ile değiştiriniz.

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "FİRMA İSMİNİ GİRMEDİNİZ", vbInformation, ("DİKKAT")
Exit Sub
End If
If TextBox2.Value = "" Then
MsgBox ("ADRESİ GİRMEDİNİZ"), vbInformation, "DİKKAT"
Exit Sub
End If
If TextBox3.Value = "" Then
MsgBox ("TARİH GİRMEDİNİZ"), vbInformation, "DİKKAT"
Exit Sub
End If
If ComboBox1.Value = "" Then
MsgBox ("İŞLEM TÜRÜNÜ GİRMEDİNİZ"), vbInformation, "DİKKAT"
Exit Sub
End If
ad = TextBox1.Text
cevap = MsgBox(" BU FİRMAYI KAYIT ETMEYE EMİNMİSİZ ? ", vbYesNo, "DİKKAT")
If cevap = vbNo Then
cancel = True
Exit Sub
End If
Sheets("firma").Copy ' sayfanın yeni bir workbook''a kopyasını alır
ActiveWorkbook.SaveAs Filename:="D:\ASE\" & ad
ActiveSheet.Name = TextBox1.Value
[b1] = TextBox1.Value
[b2] = TextBox2.Value
[C9] = ComboBox1.Value
[a9] = TextBox3.Value
[g9] = TextBox4.Value
[h9] = TextBox5.Value
MsgBox TextBox1.Text & " İSİMLİ FİRMA KAYDEDİLDİ.", vbInformation + vbOKOnly, "KAYDEDİLDİ"
ActiveWorkbook.Save
ActiveWindow.Close
'End

sat = Application.ExecuteExcel4Macro("COUNTA('" & ThisWorkbook.Path & "\[hesap.xls]Sayfa1'!c1)")
yeni_dosya_adı = "hesap"
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & yeni_dosya_adı & ".xls")
Cells(sat + 2, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ad & ".xls", TextToDisplay:=ad & ".xls"
Cells(sat + 2, 2).Value = "='D:\ASE\[" & ad & ".xls]" & ad & "'!R4C11"
ActiveWorkbook.Save
ActiveWindow.Close
MsgBox "işlem tamam"
Range("C2").Select
Application.CutCopyMode = False

End Sub

 

[akd44]

sayın halit3 allah razı olsun sizden işimi gördünüz allahda sizin işinizi görsün sağolasın ellerin dert görmesin

 

[halit3]

sayın halit3 allah razı olsun sizden işimi gördünüz allahda sizin işinizi görsün sağolasın ellerin dert görmesin

iyi çalışmalar