• DİKKAT

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

Gorev listesini baska sayfaya kopyalama

F

fredycrouger

Katılım
12 Mart 2009
Mesajlar
119
Excel Vers. ve Dili
Office 365 - Ingilizce
Merhaba,

Ekli dosyada goreceginiz uzere iki adet calisma sayfasi mevcut. Ilk olanda (Task list) yapilacak gorevler var. Ikinci sayfada ise musteri listesi var. Her musterinin karsisina Task list sayfasinda olan gorevleri kopyalamak istiyorum. bu islem son musteriye kadar devam etmeli.

Basit olarak: Task list A2:A27 araligini Ready A A2:A27 ye kopyalamak istiyorum. sonra A28:A54 ve bu sekilde son musteriye kadar.

Ornek tablomda 5 adet musteri var fakat bu sayi 300-400 civarinda olacak.

https://files.fm/u/d6rqvjef

Kullandigim Excel Ingilizce

Simdiden yardimlariniz icin cok tesekkurler.
 
Örneğin müşteri3 27 satır müşteri4 28 satır yani müşterilerin satırları farklı farklımı? yoksa tüm müşteriler 26 satır mı?
 
Sn, @yanginci34 yardiminiz icin cok tesekkurler. Ornek dosya uzerinde calisiyor fakat ben kucuk bir hata yaptim. Gorev listesinin kopyalanacagi sutun B yerine I olmali. macro icinde hangi degeri degistirmem gerektigini soyleyebilirseniz mutesekkir olurum.
 
Sn. @yanginci34 test ettim elinize saglik aynen olmasi gerektigi gibi calisiyor yalniz, ilk bastaki A1 hucresinden basliyor siralamaya, oysa A1 sadece task ismi olacak. Yani A2:A27 araligindakileri kullanmasi gerekiyor. onu degistirebilirmiyiz ? Bu sekliyle dogal olarak her musteride bir satir kayarak devam ediyor.

ayrica beklenmedik bir sorunum daha olustu fazla oldugunu dusunmezseniz onuda sormak istiyorum.
Baska bir calisma sayfasinda musteri listesi var ve ben her musteri icin 26 task atayabilmek amaciyla listedeki her musterinin altina 25 bos satir eklemek icin asagidaki kodu kullaniyorum:

Kod: 
Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("ADD Direct").Select
    Columns("A:H").Select
    Selection.Copy
    Sheets("Direct Ready").Select
    Columns("A:A").Select
    ActiveSheet.Paste
    Dim j As Long, r As Range
j = 25
Set r = Range("A1")
Do
Range(r.Offset(1, 0), r.Offset(j, 0)).EntireRow.Insert
Set r = Cells(r.Row + j + 1, 1)
If r.Offset(1, 0) = "" Then Exit Do
Loop

End Sub

Sonra bu bos 25 satirin her birinin ilk satirdaki bilgileri kopyalamasi icinde asagidaki kodu kullaniyorum:

Kod: 
Columns("A:H").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.FormulaR1C1 = "=R[-1]C"

Aslinda calisiyor fakat son musterinin altinda 25 satir degil yuzlerce satir olusuyor. Bunu onlemenin bir yolunu bulamadim. Eger bu konudada bir fikriniz var ise cok sevinirim yoksada caniniz sagolsun :)
 
Bu arada az once fark ettim, ornek tabloda Musteri 1 icin 26 satir var fakat sonrakiler icin 27 satir koymusum. Ozur dilerim, her musteri icin 26 task olmasi gerekiyor.
 
Kodun ss = 1 tanımlamasını ss = 2 olarak değiştirin ve
If ss = 27 Then sorgusunu
ss = 1

If ss = 26 Then
ss = 2
şeklinde değiştirip denermisiniz.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst