• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kapalı kitapa link ve formül kopyalama

Katılım
20 Eylül 2007
Mesajlar
90
Excel Vers. ve Dili
türkçe office 2002
xp pro plus
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
 

Ekli dosyalar

  • ASE.rar
    ASE.rar
    69.6 KB · Görüntüleme: 7
arkadaşlar yardım edecek kimse yokmu
 
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
 
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
 

Ekli dosyalar

  • ASE.rar
    ASE.rar
    95.4 KB · Görüntüleme: 18
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
 
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
 
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
 
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
 
Geri
Üst