Çö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
50
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
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

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Merhaba,
Bu kodları kullanabilirsiniz.
PHP:
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
50
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
Ö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,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Orijinal içeriği bozacak bir kod yok içerisinde. Kodları birkaç kez test ederek gönderdim.
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,090
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Ö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
50
Puanları
8
Yaş
38
Konum
Ankara
Ad Soyad
Ufuk İNCE
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
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt