Değişik hücrelerdeki ve dolu satırları diğer sayfaya kopyalama

[ThEeNCi]

Veri sayfasındaki b2:b4 kadar olan verileri fatura sayfasındaki b3:b6 ya kopyalama ama sadece verileri ve veri sayfasındaki kod kg fiyat sutunlarındaki dolu satırları fatura sayfasındaki aynı yerlere sadece verilerini kopyalama nasıl yapabilirim

Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sh As Worksheet, sonsat As Long, sat As Long, i As Long
Sheets("Veri").Select
Set sh = Sheets("FATURA")
sh.Range("A11:A" & Rows.Count & ",D11:D" & Rows.Count & ",F11:F" & Rows.Count).ClearContents
sh.Range("A11:A" & Rows.Count).NumberFormat = "General"
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("B1:B4").Copy
sh.Range("B3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
sat = 11
For i = 6 To sonsat
    sh.Cells(sat, "A").Value = CStr(Cells(i, "A").Value)
    sh.Cells(sat, "D").Value = Cells(i, "C").Value
    sh.Cells(sat, "F").Value = Cells(i, "E").Value
    sat = sat + 1
Next i
Application.ScreenUpdating = True
Sheets("Fatura").Select
End Sub

 

[ThEeNCi]

Çok teşekkür ederim elinize sağlık saygılarımla,

 

[Orion1]

Çok teşekkür ederim elinize sağlık saygılarımla,

Rica ederim.
İyi çalışmalar.

 

[ThEeNCi]

Kendi tabloma uyarlamaya çalıştım fakat şöyle sorun çıktı faturadaki b ve c sutünları boş kalacak onlara bir şey eklemeyecek sank oraya bişi ekleniyor gibi hata verdi onlardan bağımsız kopyalama yapması mümkünmü birde kod kısmındaki format "Genel" formatı olması lazım

 

[Orion1]

Kendi tabloma uyarlamaya çalıştım fakat şöyle sorun çıktı faturadaki b ve c sutünları boş kalacak onlara bir şey eklemeyecek sank oraya bişi ekleniyor gibi hata verdi onlardan bağımsız kopyalama yapması mümkünmü birde kod kısmındaki format "Genel" formatı olması lazım

Fatura sayfasındaki B ce C sütunlarına bir şey eklenmiyor zaten.Yolladığım dosyaya bakarsanız orada eklenmediğini göreceksiniz.O sütunlar siliniyor sadece ,yoksa silinmeyecekmi?Kod sütununu seçerek sağ tuşla hücrebiçimlendirden istediğiniz formatı verebilirsiniz.

 

[ThEeNCi]

evet hiçbir şey yapmasın silinmesin diğeride kopyalandığı zaman formatlı olması gerekmişti

 

[Orion1]

evet hiçbir şey yapmasın silinmesin diğeride kopyalandığı zaman formatlı olması gerekmişti

Dosyayı güncelledim.
2 nolu mesajdan indirebilirsiniz.

 

[ThEeNCi]

Son bir isteğim olacak verideki b1:b4 olan kısmıda macro ya ekleyebilirmiyiz

 

[Orion1]

Son bir isteğim olacak verideki b1:b4 olan kısmıda macro ya ekleyebilirmiyiz

Dosyayı güncelldim.
2 nolu mesajdan indirebilirsiniz.

 

[ThEeNCi]

Çok zahmet verdim çok teşekkür ederim sağolun

 

[Orion1]

Çok zahmet verdim çok teşekkür ederim sağolun

Rica ederim.
İyi çalışmalar.

 

[giga1907]

@orion1 selamlar kusura bakmayın foruma yazdım ancak yanıt alamadım, forumu kullanmayı da yeni öğreniyorum.

aynı klasör içerisinde 176 tane ayrı excel evrakı mevcut. aynı formatta hazırlanan tablolardan oluşan excel dosyası bunlar. 176 adliye tarafından doldurularak tarafıma yollanmasından mevcut bir durum daha açık ifadeyle. Ben ise şunu yapmak istiyorum. 176 ayrı excel dosyasındaki C sütununun 4. sırasındaki hücreleri boş bir excel sayfasında istediğim bir hücreye toplamını almak istiyorum. Eğer birini yaparsam diğerlerine de uygulayabileceğimden, yalnız bunu nasıl yapabileceğimi bana izah ederseniz çok memnun olurum.

 

[Orion1]

@orion1 selamlar kusura bakmayın foruma yazdım ancak yanıt alamadım, forumu kullanmayı da yeni öğreniyorum.

aynı klasör içerisinde 176 tane ayrı excel evrakı mevcut. aynı formatta hazırlanan tablolardan oluşan excel dosyası bunlar. 176 adliye tarafından doldurularak tarafıma yollanmasından mevcut bir durum daha açık ifadeyle. Ben ise şunu yapmak istiyorum. 176 ayrı excel dosyasındaki C sütununun 4. sırasındaki hücreleri boş bir excel sayfasında istediğim bir hücreye toplamını almak istiyorum. Eğer birini yaparsam diğerlerine de uygulayabileceğimden, yalnız bunu nasıl yapabileceğimi bana izah ederseniz çok memnun olurum.

4ncü sırada hangi hücreler.Yada siz bana bir tane örnek dosya atın.Dosya üzerindede açıklamasını yazın,bir bakayım.

 

[giga1907]

ekteki excel dosyasını boş olarak adliyelere yolladım. satırlarda sendikaların adları, sütünlarda ise kadrolu ve sözleşmeli personel şeklinde iki ayrı durum var. adliyeler ise bana örneğin ekteki dosyadan anlaşılacağı üzere BES isimli sendikaya üye olan 4/A kadrolu xxx kadar personel var, 4/B xx kadar sözleşmeli personel var şeklinde ne kadar varsa artık o hücrelere sayıları yazıp yolladılar. Toplam 176 kadar adliye var. Ben ise bir klasörün içine adliyelerden gelen dosyaları isimleri ile birlikte kaydettim. Benim istediğim şey tüm adliyelerden gelen bu yanıtları tek bir excel dosyasında otomatik olarak toplamak. Yani 176 dosyanın C2 hücresini (ekteki dosyaya bakınız) ANA bir tabloda toplarsam türkiye genelindeki adliyelerdeki BES e üye olan 4/A kadrolu personel sayısını bulmuş olacağım. bu toplama işlemi bir defaya mahsus yapılacak. sayı değişkenlerine göre değişmesine gerek yok yani. umarım anlatabilmişimdir. yardımlarınız için teşekkür ederim. yanıtınızı ve yardımlarınızı bekliyorum.

 

[giga1907]

http://dosya.web.tr/N8ErZV

 

[Orion1]

http://dosya.web.tr/N8ErZV

Anti virüs programım o siteye erişimi engelledi.
Aşağıdaki siteye yükleyin.

DOSYA YÜKLE

..

 

[ThEeNCi]

Dosyanız ektedir.

Sub aktar59()
Dim sh As Worksheet, sonsat As Long, sat As Long, i As Long
Sheets("Veri").Select
Set sh = Sheets("FATURA")
sh.Range("A11:A" & Rows.Count & ",D11:D" & Rows.Count & ",F11:F" & Rows.Count).ClearContents
sh.Range("A11:A" & Rows.Count).NumberFormat = "General"
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("B1:B4").Copy
sh.Range("B3").PasteSpecial xlPasteValues
Application.CutCopyMode = False
sat = 11
For i = 6 To sonsat
    sh.Cells(sat, "A").Value = CStr(Cells(i, "A").Value)
    sh.Cells(sat, "D").Value = Cells(i, "C").Value
    sh.Cells(sat, "F").Value = Cells(i, "E").Value
    sat = sat + 1
Next i
Application.ScreenUpdating = True
Sheets("Fatura").Select
End Sub

Evren bey merhaba bu verdiğiniz macroyu başka bir sayfadan nasıl çalıştırabilirim bu sayfada kalacak başka sayfadan düğmeye basınca çalışacak

 

[Orion1]

Evren bey merhaba bu verdiğiniz macroyu başka bir sayfadan nasıl çalıştırabilirim bu sayfada kalacak başka sayfadan düğmeye basınca çalışacak

Hangi sayfada kalacak.
Örnek dosya ekleyiniz.

 

[ThEeNCi]

Fatura sayfasında bir tuşla veri dosyasındaki macroyu çalıştırması