Kapalı excel kitabı içindeki sayfayı ekleme

[Sa.NaL]

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.

 

[halit3]

aşağıdaki linke bir bakarmısınız linkte başka dosyadan sayfa kopyalama örneği var

http://www.excel.web.tr/showthread.php?t=68040

 

[Sa.NaL]

İnceledim Halit bey yanlızca kapalı dosyadan sayfayı açık kitabıma ekleme kodu hangisi?

 

[Sa.NaL]

Yani sizin sisteminize göre konuşuyorum.Başka dosyadan alıp bu dosyayla nasıl birleştiririm?

 

[Sa.NaL]

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?

 

[Orion1]

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?

Belirli hücredeki verileri almak için excel4makro uygundur.

 

[Sa.NaL]

excel4makro ne demek?

 

[Orion1]

excel4makro ne demek?

Kapalı bir excel dosyasındaki istediğiniz yerdeki hürelerden istediğiniz veriyi cımbızla çekip alır gibi verileri alablirisiniz.

 

[Sa.NaL]

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

 

[halit3]

yukarıdaki linkdeki dosyayı güncelledim başka sayfadan sayfa kopyala düğmesi sannedersem işleminizi yapacaktır.

 

[Sa.NaL]

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

 

[halit3]

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

 

[Sa.NaL]

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?

 

[halit3]

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

 

[Sa.NaL]

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

 

[Sa.NaL]

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?

 

[halit3]

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?

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

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

 

[Sa.NaL]

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

 

[halit3]

iyi çalışmalar