• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

sayfa aç ve aktar

H

h.temel

Katılım
4 Aralık 2007
Mesajlar
30
Excel Vers. ve Dili
2007 TR
Merhaba, ekteki dosyada bu siteden bulduğum sayfa açıp aktaran bir makro var. Makroyu çalıştırdığımda D2 hücresinde yazana göre sayfa oluşturup A1 ile D13 arasındaki tüm verileri oluşturduğu sayfaya aktarıyor. Benim yapmak istediğim ise A1 ile D5 arasındaki herşeyi aktarsın ama A8 ile D13 arasındaki kısımda B sütunu dolu olan var ise sadece dolu olan satırları aktarsın istiyorum.

Yardımcı olmanızı rica ederim.
 

Ekli dosyalar

Dosyayı açamadım tekrar yükler misiniz ?
 
Ben açamıyorum bu nedenle ilgilenemeyeceğim...

İyi akşamlar...
 
Maalesef ben açamadım. Ekran görüntüsüne bakabilirsiniz.

Belki diğer arkadaşlarda bir sorun çıkmaz...

İyi akşamlar...
 

Ekli dosyalar

  • adsız.JPG
    adsız.JPG
    31.5 KB · Görüntüleme: 20
h.temel arkadaşın yüklediği excel 2003 olmasına rağmen sizde açılmaya çalışan 2007 veya daha üstü gözüküyor xlsx uzantısına bakılıcak olursa, 2003 mü kullanıyorsunuz murat bey.
 
redgirl' Alıntı:
h.temel arkadaşın yüklediği excel 2003 olmasına rağmen sizde açılmaya çalışan 2007 veya daha üstü gözüküyor xlsx uzantısına bakılıcak olursa, 2003 mü kullanıyorsunuz murat bey.
Genişletmek için tıkla ...

siz açabildiniz mi?

ilkinde dosyayı 2007 de oluşturdum ve makro içeren dosya diye kaydettim, en sondaki mailde 97/2003 için kaydetmiştim.
 
İndirip uzantısını xls yapınca düzeldi...
 
Murat bey açamamanızın sebebi muhtemelen ben sağdan soldan kodları bulup birbirine karıştırdığım içindir. Vaktiniz varsa yardımcı olur mursunuz?
 
Bir sorun yok şu an açtım demiştim.

Ama şimdi çıkmam gerek... Arkadaşlar yardımcı olacaklar...

İyi akşamlar.
 
bu makroyu çözerseniz her gün işe 05:00 te gitmekten kurtaracaksınız beni, ilgilenecek herkese şimdiden teşekkür ederim.
 
05:00'te mi ? O saatte işe mi gidilir ? :D
Espiri yapıyorum Temel Bey, yanlış anlamayım lütfen...

Kodlardaki şu satırın altına;
Kod: 
Sayfa1.Range("A1:D13").Copy Sheets(sf).Range("A65536").End(3)(1, 1)
şu satırı ilave edip bir deneyiniz;
Kod: 
Sheets(sf).Range("A1:A13").SpecialCells(4).EntireRow.Delete
 
Murat OSMA' Alıntı:
05:00'te mi ? O saatte işe mi gidilir ? :D
Espiri yapıyorum Temel Bey, yanlış anlamayım lütfen...

Kodlardaki şu satırın altına;
Kod: 
Sayfa1.Range("A1:D13").Copy Sheets(sf).Range("A65536").End(3)(1, 1)
şu satırı ilave edip bir deneyiniz;
Kod: 
Sheets(sf).Range("A1:A13").SpecialCells(4).EntireRow.Delete
Genişletmek için tıkla ...

Murat bey işimiz sebze meyve olunca ben geç bile gittiğimi söyleyebilirim, kullandığımız paket programa siparişlerin girilmesi ve irsaliyelerin dökümü çok zamanımızı alıyor bende mecburi işe erken gitmek zorunda kalıyorum.

bu arada verdiğiniz kod aynı şekilde aktarma yapıyor ve birinci aktarmadan sonra aynı sayfaya başka birşey aktarmak istersem hata veriyor yada ben beceremedim.
 

Ekli dosyalar

Allah kolaylık versin Temel Bey...

O zaman yine şu satırın;
Kod: 
Sayfa1.Range("A1:D13").Copy Sheets(sf).Range("A65536").End(3)(1, 1)
bu sefer üstüne şu kodu ilave edin;
Kod: 
 Sheets(sf).Cells.Clear
 
Son düzenleme:
Murat OSMA' Alıntı:
Allah kolaylık versin Temel Bey,

O zaman yine şu satırın;
Kod: 
Sayfa1.Range("A1:D13").Copy Sheets(sf).Range("A65536").End(3)(1, 1)
bu sefer üstüne şu kodu ilave edin;
Kod: 
 Sheets(sf).Cells.Clear
Genişletmek için tıkla ...

Sağolun Murat Bey sayenizde kolaylaşacak inşallah.

Verdiğiniz kod işime yaramadı, muhtemelen yapmak istediğimi ben tam anlatamadım. Ekte yine dosya gönderiyorum bu sefer yapmak istediğim ile ilgili daha detaylı açıklama yazdım. İlgilenirseniz çok makbule geçecek.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst