• DİKKAT

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

Kapalı excel kitabı içindeki sayfayı ekleme

S

Sa.NaL

Katılım
18 Haziran 2008
Mesajlar
542
Excel Vers. ve Dili
2007 türkçe
Merhabalar benim iso dosyası adında excel kitabım var.Ona ekle adlı command boton koydum.Bu komut butonuna ben nasıl kod yazarsam excel.xls adlı kapalı excel çalışma kitabı içindeki sayfa1 i benim açık olan iso dosyası kitabımın içine ekler.Yardımlarınızı bekler şimdiden tşk ederim.İkisinin de adresi belgelerimde bilginize birde sayfayı ekledikten sonra excel.xls yi silme kodunuda yazarsanız sevinirim.
 
İnceledim Halit bey yanlızca kapalı dosyadan sayfayı açık kitabıma ekleme kodu hangisi?
 
Yani sizin sisteminize göre konuşuyorum.Başka dosyadan alıp bu dosyayla nasıl birleştiririm?
 
bu işlem zor ise şayet kapalı dosyanın içindeki belirli hücrelerdeki bilgileri açık dosyamda ki herhangi bir sayfadaki hücrelerime nasıl alabilirim halit hocam?
 
Sa.NaL' Alıntı:
bu işlem zor ise şayet kapalı dosyanın içindeki belirli hücrelerdeki bilgileri açık dosyamda ki herhangi bir sayfadaki hücrelerime nasıl alabilirim halit hocam?
Genişletmek için tıkla ...
Belirli hücredeki verileri almak için excel4makro uygundur.:cool:
 
iyi de hocam ama nasıl daha önce hiç almamış biriyle konuşuyorsunuz:) örneğin 1 ve 2 die kitaplar ekledim 2 deki verileri 1deki verilere kommand butonuna basarak nasıl alırız yardımcı olursanız çok sevnnirim ve daha sonra verileri alınca 2 dosyası otomatikmen silinsin
 

Ekli dosyalar

  • 1.xls
    1.xls
    16.5 KB · Görüntüleme: 13
  • 2.xls
    2.xls
    16 KB · Görüntüleme: 8
yukarıdaki linkdeki dosyayı güncelledim başka sayfadan sayfa kopyala düğmesi sannedersem işleminizi yapacaktır.
 
Tşkler halit hocam işimi gördü sağolun ama yukarıdaki 2 tane excel dosyam var orada istediğim gibi olursa tam kafamdaki gibi olucak inş tek komuta tıklayarak verileri sayfama alıp o işime yaramayan excel kitabını sildirmek amacım bu sizin yolunuzda görür ama işlem sayım artıyor böylelikle tek komut için yukarıda 2 excel dosyam var onlardan birbirine veriyi nasıl aktarırız yardımcı olursanız çok sevnirim
 
bu kodu denermisin ancak A1 hücresi boş olması lazım çünkü veri alınacak dosyanın sayfasını buluyor
Sub dosyayıbul()
a = Application.GetOpenFilename("All Files (*.*),*.*.")
If a = False Then
MsgBox "Kaynak klasörü seçmediniz"
Exit Sub
End If
Kaynak = Mid(a, 1, Len(a) - Len(Dir(a)) - 1)
sayfaadi = "x"
tmp = Dir(a)
deg = "'" & Kaynak & "\" & "[" & Dir(a) & "]" & sayfaadi & "'!R"
Cells(1, 1).Value = "=" & deg & 1 & "C" & 1
Cells(1, 1).Replace What:="=", Replacement:=""
alan1 = Worksheets(ActiveSheet.Name).Cells(1, 1).Value
For k = 1 To Len(alan1)
If Mid(alan1, k, 1) = "]" Then
yer = (Len(alan1) - 6 - k)
zaman = Mid(alan1, k + 1, yer)
End If
Next
Cells(1, 1).Value = zaman
If zaman = "x" Then
MsgBox "sayfayı seçmediniz."
Exit Sub
End If
'On Error Resume Next
deg = "'" & Kaynak & "\" & "[" & Dir(a) & "]" & zaman & "'!R"
MsgBox deg
n = 2
For i = 1 To 100
On Error Resume Next
If ExecuteExcel4Macro(deg & n - 1 & "C" & j) <> 0 Then
For j = 1 To 3
Cells(n, j) = ExecuteExcel4Macro(deg & n - 1 & "C" & j)
Next j
n = n + 1
End If
Next i
End Sub
Genişletmek için tıkla ...
 
Hocam değerli yardımlarınız için tşk ederim ama kendimi anlatamadım sanırım ben tek bir kodla kapalı dosyadaki veriyi yani 2.xls deki veriyi safya 1 deki sayfama açık olan sayfama yani 1.xls dosyamdaki herhangi bir hücreye eşitleme kodunu soruyorum ve o veriyi aldıktan sonra 2.xls yi silmek istiyorum tek bir komut butonu ile herhangi yere yönlenmeden profesyonelce deil yani amatörce olsa bana yeter tam olarak aradığım kafamdaki şekliyle bu ayrıca ilginiz için sağolun bu şekilde yapabilmem için yardımcı olurmusunuz?
 
bu kodu denermisiniz

Sub aktar()
Kaynak = ThisWorkbook.Path
dosyaadı = "2.xls"
sayfaadi = "Sayfa1"
deg = "'" & Kaynak & "\" & "[" & dosyaadı & "]" & sayfaadi & "'!R"
n = 1
For i = 1 To 100
On Error Resume Next
If ExecuteExcel4Macro(deg & n & "C" & j) <> 0 Then
For j = 1 To 3
Cells(n, j) = ExecuteExcel4Macro(deg & n & "C" & j)
Next j
n = n + 1
End If
Next i
End Sub
Genişletmek için tıkla ...
 
hocam ben bu örnekte sadece döngüdeki verileri eşitleyebiliyorum benim istediğim tam olarak şu şekilde ama atıyorum kapalı dosyadaki sheets("Sayfa1").range("A35").value= açık dosyadaki sheets("Sayfa1").range("A12").value gibi birşey
 
hocam örnekte excel adlı kitabım var bu benim üzerinde çalıştığım örnek örneğin bu excelin içinde C5 hücresinde işemir nosu var benim ana formumdada arıza sayfasında iso.xls kitabında D4 hücresinde yer alıyor iş emir nosu ben bu verileri tek tek nasıl eşitleme yapabilirim kapalı dosyadan ve en son bu excel.xls yi sildiren kodu yazabilirmisinz?
 

Ekli dosyalar

Sa.NaL' Alıntı:
hocam örnekte excel adlı kitabım var bu benim üzerinde çalıştığım örnek örneğin bu excelin içinde C5 hücresinde işemir nosu var benim ana formumdada arıza sayfasında iso.xls kitabında D4 hücresinde yer alıyor iş emir nosu ben bu verileri tek tek nasıl eşitleme yapabilirim kapalı dosyadan ve en son bu excel.xls yi sildiren kodu yazabilirmisinz?
Genişletmek için tıkla ...


anladığım kadarı ile yapmaya çalıştım

örnek dosyanda c1-c5 hücresi birleşik bu durumda c5 hücresi işlev görmez bunu c1 olarak algılar onun için veri c5 hücresine gelecekse bu hücrelerin çözülmüş olması lazım

iso.xls kitabında arıza sayfasında D4 hücresindeki veri alıyor ve iso.xls dosyasını siliyor bunların gerçekleşe bilmesi için dosyalar yan yana olması lazım

Kod: 
Sub aktar()
Kaynak = ThisWorkbook.Path
dosyaadı = "iso.xls"
sayfaadi = "arıza"
deg = "'" & Kaynak & "\" & "[" & dosyaadı & "]" & sayfaadi & "'!R"
On Error Resume Next
Range("C5").Value = ExecuteExcel4Macro(deg & 4 & "C" & 4)
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
DosyaSistemi.DeleteFile Kaynak & "\" & dosyaadı
End Sub
 
ellerinize sağlık hocam burada benim anlamadığım ExecuteExcel4Macro(deg & 4 & "C" & 4) yazıyoruz ama D4 e eşitliyor neyse bende hep bir önceki harfi yazarım sorun olmaz sanırım iyi çalışmalar hocam
 
iyi çalışmalar
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst