Çözüldü Veriyi Tarihe göre Kaydetme

valentino06

Altın Üye
Katılım
19 Şubat 2007
Mesajlar
432
Excel Vers. ve Dili
excel 2019
Merhaba,
Arkadaşlar data kitabını bugünün tarihini ve saatini vererek farklı kaydetmek istiyorum. buton atayarak farklı klasörde gün gün saklıyacağım. Arkadaşlar 2. bir sorum ise data kitabındaki " C " Sütunundaki hücre içindeki veriye çıft tıklayarak klasör içindeki kitaplarda karşılığını bularak köprü oluşturmak istiyorum. vba ile lütfen yardımcı olabilirmisiniz. çok teşekkür ederim.
 

Ekli dosyalar

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
3,034
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Kayıt için şu kodu boş bir modüle kopyalayıp çalıştırınız.
PHP:
Sub FarklıKaydet()
ThisWorkbook.SaveCopyAs Replace(ThisWorkbook.FullName, ".xlsm", Format(Now, "_yyyymmdd_hhnnss") & ".xlsm")
End Sub
Köprü eklemek için de Data sayfasının kod bülümüne şu kodu kopyalayıp deneyininiz.
PHP:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C4:C" & Rows.Count)) Is Nothing Then Exit Sub
yol = ThisWorkbook.Path & "\"
dsy = Dir(yol & Target.Text & ".*")
If dsy = "" Then
    MsgBox yol & " dizininde " & Target.Text & " dosyası bulunamadı."
Else
    Target.Hyperlinks.Delete
    Target.Hyperlinks.Add Target, dsy
End If
Cancel = True
End Sub
 

valentino06

Altın Üye
Katılım
19 Şubat 2007
Mesajlar
432
Excel Vers. ve Dili
excel 2019
Merhaba,
Ömer Bey çok teşekkür ederim. çok sağolun. Ömer bey data sayfasını masa üstünde dursa ordan köprü oluşturamayızmı data sayfası diğer kitapların bulunduğu data sayfasında çekiyor.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
3,034
Excel Vers. ve Dili
2007 Türkçe
Kodda yer alan yol = ThisWorkbook.Path & "\" ifadesini veri almak istediğiniz klasör yoluyla değiştiriniz.
yol = "C:\deneme\" gibi...
İyi çalışmalar...
 

valentino06

Altın Üye
Katılım
19 Şubat 2007
Mesajlar
432
Excel Vers. ve Dili
excel 2019
Merhaba,
Arkadaşlar Ömer hocanın yapmış olduğu köprü çok güzel çalışıyor. bir klasörün içinde 5-10 klasör var ise o klasörlerin içindeki verilere köprü yapma olasılığımız var mı çok teşekkür ederim.
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
3,034
Excel Vers. ve Dili
2007 Türkçe
Veriler direk alt klasörlerin içinde mi, yoksa alt klasörlerin içinde de yeni alt klasörler mi var?
 

valentino06

Altın Üye
Katılım
19 Şubat 2007
Mesajlar
432
Excel Vers. ve Dili
excel 2019
Merhaba Ömer bey 1 ana klasör var ana klasörün içindede 10 tane ayrı ayrı klasör var bu klasörün içindede Excel kitapları var
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
3,034
Excel Vers. ve Dili
2007 Türkçe
Kodun düzenlenmiş hali aşağıdadır, yol değişkenini kendinize göre düzenlemeyi unutmayınız.
İyi çalışmalar...
PHP:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C4:C" & Rows.Count)) Is Nothing Then Exit Sub
Yol = ThisWorkbook.Path & "\"
Set ds = CreateObject("Scripting.FileSystemObject").GetFolder(Yol).SubFolders
For Each d In ds
    dsy = Dir(d.Path & "\" & Target.Text & ".*")
    If dsy <> "" Then
        Target.Hyperlinks.Delete
        Target.Hyperlinks.Add Target, d.Path & "\" & dsy
        GoTo son
    End If
Next
MsgBox Yol & " dizininde " & Target.Text & " dosyası bulunamadı."
son:
Cancel = True
End Sub
 
Üst