Dosyalar arası veri aktarımı yardım

[stinger]

Herkese iyi günler.

Elimde iki adet excel dosyası var. Ekteki örnek üzerinden anlatmak gerekirse EXCEL1 dosyasındaki verileri EXCEL2 dosyasının 11. satırından itibaren kopyalanmasını istiyorum.

Şimdiden teşekkürler.

 

[Orion1]

Dosyalarınızı 2003 formatında yüklerseniz daha çabuk cevap alabilirsiniz.
Çünü herkeste 2007 yok.Bendede olmadığı gibi.

 

[stinger]

Kusura bakmayın
Yeni halini ekledim şimdi.
İlginiz için teşekkürler.

 

[Orion1]

Kusura bakmayın
Yeni halini ekledim şimdi.
İlginiz için teşekkürler.

Yine 2007 formatında.
Farklı kaydetten 2003 formatını seçmelisiniz.

 

[stinger]

Öyle yapmıştım ama bir sorun oldu galiba.
Şimdi yaptığıma inanıyorum.

 

[Orion1]

Kodlar excel1 dosyasında.
Excel1 dosyasını açıp butona basın.
A:B sütunlarındaki verileri excel2 dosyaına atar.
Aşağıdaki kırmızı renkli satıra istediğiniz bir excel dosyasınız yazarak başka dosyalar içinde çalıştırabilrisiniz.
Her 2 dosyanında ayni klasörde olması lazım.

Sub kapalı_Dosyayı_Başka_bir_Excel_ile_açıp_veri_Kopyalamak()
Dim xl As Object, sh As Worksheet, wb As Workbook
Dim sat1 As Long, sat2 As Long, dosya As String, liste()
[B][COLOR="Red"]dosya = "excel2.xls"[/COLOR][/B]
Set xl = CreateObject("Excel.Application")
Application.DisplayAlerts = False
xl.Visible = False
If xl.Workbooks.Open(ThisWorkbook.Path & "\" & dosya).ReadOnly = True Then
    xl.Workbooks(dosya).Close
    Set wb = Workbooks(dosya)
    Else
    Set wb = xl.Workbooks(dosya)
End If
Set sh = wb.Sheets(1)
ThisWorkbook.Activate
sat1 = Cells(65536, "A").End(xlUp).Row
sat2 = sh.Cells(65536, "A").End(xlUp).Row + 1
If sat2 < 11 Then sat2 = 11
liste = Range("A1:B" & sat1).Value
sh.Range("A" & sat2).Resize(UBound(liste, 1), 2) = liste
wb.Close True
xl.Quit
MsgBox "Veriler excel2 dosyasına aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[stinger]

İlginiz için çok teşekkürler. Kendi programıma göre modifiye ediyorum şu an. Kopyalanan kolon sayısını arttırmak için koddaki hangi satırı değiştirmem gerekiyor ?

 

[Orion1]

İlginiz için çok teşekkürler. Kendi programıma göre modifiye ediyorum şu an. Kopyalanan kolon sayısını arttırmak için koddaki hangi satırı değiştirmem gerekiyor ?

.
aiaşğıdaki ilk satırda Kırmızı yazan yere son sütun adını yazın
ikinci satırdada sütun sayısını yazın.

liste = Range("A1:[B][COLOR="Red"]D[/COLOR][/B]" & sat1).Value
sh.Range("A" & sat2).Resize(UBound(liste, 1), [B][COLOR="red"]4[/COLOR][/B]) = liste

 

[stinger]

Tamam şimdi tam istediğim gibi oldu. Tekrar çok teşekkür ederim.
İyi günler.

 

[Orion1]

Tamam şimdi tam istediğim gibi oldu. Tekrar çok teşekkür ederim.
İyi günler.

Rica ederim.
İyi çalışmalar.

 

[filizu]

merhaba, excel'i pek bilmiyorum. Şöyle bir sorunum var... 30 sütun ve 24 satırdan oluşan sayısal verileri yine excel tabanında hazırlanmış başka bir programa aktarırken tek bir sütun halinde alt alta eklemem gerekiyor. bunu kısa yoldan nasıl yapabilirim? o kadar çok veri var ki sütun sütun taşımak çok uzun zaman alıyor....
şimdiden teşekkür ediyorum
filiz

 

[Orion1]

merhaba, excel'i pek bilmiyorum. Şöyle bir sorunum var... 30 sütun ve 24 satırdan oluşan sayısal verileri yine excel tabanında hazırlanmış başka bir programa aktarırken tek bir sütun halinde alt alta eklemem gerekiyor. bunu kısa yoldan nasıl yapabilirim? o kadar çok veri var ki sütun sütun taşımak çok uzun zaman alıyor....
şimdiden teşekkür ediyorum
filiz

Yeni bir konu açarak excel 2003 ten oluşturduğunuz örnek dosyayı/Dosyaları ekleyip gerekli açıklamalrı yapınız.