Makro ile Belirli Hücreleri Kopyalama

[Hakngnc]

Arkadaşlar ve üstadlar iyi günler,
Makroyu yazma amacım 33 çalışanımıza eşit sayıda işi paylaştırmak. Her bir satır ilgili işlerini oluşturmaktadır.Bu işlemi her gün tekrarladığım için makroya ihtiyaç duydum. Ama beceremedim. Yardımlarınızı rica ederim.

İlgili excelde A sutunundan AB sutununa kadar dolu bir excel sayfasında x ile belirteceğim satır sayısı kadar kopyalama yapıp yeni bir excel kitabında herbir sayfaya bir kişinin ismi olmak üzere yapıştırmak istiyorum.

x=TAMSAYI((BAĞ_DEĞ_DOLU_SAY(A:A)-1)/33)
(x formülünde yaptığım=dolu hücre sayısını bulup 33'e yani kişi sayısına bölmek 1.satırda sutun değerleri yazıyor o yüzden ilk satırı almadım 1'den çıkardım)
x=120 çıktı ise ilk 120 satır ilk kişiye, ikinci 120 ikinci kişiye(yani 121:241 satırlar ikinci kişiye) bu şekilde 33 kere işlemin tekrar etmesini istiyorum.


2 isim için bir makro oluşturmaya çalıştım yardım ederseniz devamını çalıştıracağım
Range("A1:AB&x").Select satırında hata alıyorum.

    x = "=INT((COUNTA(C[-29])-1)/33)"
    Workbooks.Add
    Windows("Kanal Dağıtımı.xlsm").Activate
    Sheets("Bölge Havuzları").Select
    Range("A1:AB&x").Select
    ActiveWindow.SmallScroll Down:=-171
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Sheets("Sayfa1").Name = "Aslı"
    Sheets.Add After:=ActiveSheet
    Sheets("Sayfa2").Select
    Sheets("Sayfa2").Name = "Can"
    Windows("Kanal Dağıtımı.xlsm").Activate
    Range("A&x+1:AB&x*2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Kitap1").Activate
    ActiveSheet.Paste
    Windows("Kanal Dağıtımı.xlsm").Activate

Yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Yaptığınız işlemi anlamış deığilim ama gördüğüm kadarıyla çift tırnak işaretinin yerinde sorun var sanırım; Range("A1:AB&x") değil Range("A1:AB"&x) şeklinde deneyin.

 

[Hakngnc]

Merhaba Ömer bey döngü oluşturmayı bilmediğimden 33 kişi için aynı işlemi yapacağım.Bir sayfadaki dolu hücreleri 33 kişiye paylaştırmak amacım ve sayfada her zaman aynı sayıda satır olmuyor. ama sutunlar hep aynı A sutunundan AB sutununa kadar.
Yardım ederseniz sevinirim.Cevabınız için teşekkürler

 

[Hakngnc]

x=120 olduğunu var sayalım yani 33 kişiye 120şer kayıt paylaştıracağım

Ömer bey dediğiniz şekilde çalıştırdım oldu fakat ikinci kişi için
Range("A&x+1:AB&x*2").Select satırında hata alıyorum

a121:ab240 yazdırmaya çalışıyorum.

x olarak yazdırmamın sebebi hergün satır sayısı değişiyor.

Yardım ederseniz sevinirim.

 

[Ömer BARAN]

Daha evvel de yazdığım gibi kodlarınızı denemiş değilim (örnek belgeniz olmadığı için).

Bir önceki cevabım anlaşılmamış demekki, yeni sorunuzun cevabı aşağıdaki şekilde olmalı.

Range("A" & x+1 ":AB" & x*2).Select

Yani matematiksel veya değişkene ilişkin işlemi tırnak içine almayıp, METİN cinsinden olanı çift tırnak içine almalısınız.

 

[Hakngnc]

Çok teşekkür ederim yardımınızla hallettim. İyi günler diliyorum.

 

[Ömer BARAN]

Çok teşekkür ederim yardımınızla hallettim. İyi günler diliyorum.

Estağfurullah, iyi günler dilerim.