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

incsoft · 30 Ocak 2019

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...

incsoft · 1 Şub 2019

yok mu yardımcı olabilecek arkadaşlar?

Murat OSMA · 1 Şub 2019

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 · 1 Şub 2019

Ö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..

Murat OSMA · 1 Şub 2019

Orijinal içeriği bozacak bir kod yok içerisinde. Kodları birkaç kez test ederek gönderdim.

incsoft · 1 Şub 2019

Admin' Alıntı:
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

Murat OSMA · 1 Şub 2019

incsoft' Alıntı:
Ö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?

incsoft · 1 Şub 2019

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

Murat OSMA · 1 Şub 2019

Dosyayı ekliyorum, denersiniz.

Kodlar masaüstüne kaydedecek şekildedir, denedikten sonra siz oradaki dosya yolunu değiştirirsiniz.

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

Daha fazla seçenek

incsoft

Ekli dosyalar

incsoft

Murat OSMA

incsoft

Murat OSMA

incsoft

Ekli dosyalar

Murat OSMA

incsoft

Murat OSMA

Ekli dosyalar