Çözüldü verileri başka bir dosyaya aktarma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
42
En İyi Yanıtlar
1
Beğeniler
2
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
#1
Arkadaşlar ekteki dosyam datalara göre değişmekte ve bunları başka bir program aracılığıyla import edip kullandığımdan dolayı burada sadece dolu verilere ihtiyacım vardır. Mesela ekte örneğini verdiğim dosyamda o gün için =A1:J190 aralığı dolu olduğundan o alandaki tüm verileri örneğin buton aracılığıyla birebir D:\DATA.XLSX dosyasına aktarmak istiyorum. Bunun için sizlerin yardımlarına ihtiyacım vardır.

Teşekkürler...
 

Ekli dosyalar

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
42
En İyi Yanıtlar
1
Beğeniler
2
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
#2
yok mu yardımcı olabilecek arkadaşlar?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#3
Merhaba,
Bu kodları kullanabilirsiniz.
VBA:
Sub Emre()
    Dim osma As Range, son&
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    Set osma = Columns(8).Find(0, , xlValues, 1)
    If Not osma Is Nothing Then
        son = osma.Row
        Rows(son & ":" & 65536).Delete
    End If
    ActiveWorkbook.SaveAs Filename:="D:\DATA.xlsx", _
    FileFormat:=51, CreateBackup:=False
    ActiveWorkbook.Close True
    Application.ScreenUpdating = True
End Sub
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
42
En İyi Yanıtlar
1
Beğeniler
2
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
#4
Öncelikle teşekkürler hocam ancak neden se orjinal dosya içeriğini bozuyor ve de istediğim alana dosyayı oluşturmuyor. Mümkünse dosya üzerine aktive ederek ekleyebilirmisiniz?

Teşekkürler..
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#5
Orijinal içeriği bozacak bir kod yok içerisinde. Kodları birkaç kez test ederek gönderdim.
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
42
En İyi Yanıtlar
1
Beğeniler
2
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
#6
Orijinal içeriği bozacak bir kod yok içerisinde. Kodları birkaç kez test ederek gönderdim.

dosyalar ektedir hocam sadece dolu alanları almadığı gibi orjinalide bozuyor nedense
 

Ekli dosyalar

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#7
Öncelikle teşekkürler hocam ancak neden se orjinal dosya içeriğini bozuyor ve de istediğim alana dosyayı oluşturmuyor. Mümkünse dosya üzerine aktive ederek ekleyebilirmisiniz?

Teşekkürler..
İstediğiniz alana dosyayı oluşturmuyor dediniz, dosya oluşturulmadıysa gönderdiğiniz DATA.xlsx dosyasını nasıl oluşturdunuz? :unsure:
 

incsoft

Yeni Üye
Katılım
28 Ocak 2019
Mesajlar
42
En İyi Yanıtlar
1
Beğeniler
2
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
#8
oluşturuyor hocam ancak birebir halini oraya alıyor orjinalde sadece istenilen hali kalıyor. Benim istediğim d:\data.xlsx de ZPPR0029 dosyasında sadece istenilen alanların olması orjinal dosyanın birebir kalmasıdır. İnceliyorum ancak çözemedim halen
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,054
En İyi Yanıtlar
77
Beğeniler
855
Puanları
113
Konum
İstanbul
#9
Dosyayı ekliyorum, denersiniz. (y)
Kodlar masaüstüne kaydedecek şekildedir, denedikten sonra siz oradaki dosya yolunu değiştirirsiniz.
 

Ekli dosyalar

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt