formül kopyalama hk. yardım

[SysReb]

Arkadaşlar selam,
Formül kopyala/yapıştır yaparken bir hususta yardımınız gerek.

ekli resimde de anlatmaya çalıştığım gibi;

sayfa (1)'de 6.satırdaki a,b,c sütunlarıda mevcut verileri,
sayfa (2)'nin b sütununda 7,8,9 satırlara aktarıp daha sonra
buradaki formülü kopyala/yapıştır seçeneği ile
sayfa (1)'deki 7.satırdaki a,b,c sütunlarındaki verileri
sayfa(2)'de b sütununda 11,12,13 nolu satırda aktarmak istediğimde
formül doğal olarak satır boşluğunu hesaplayarak doğru verileri
getirmiyor.

ilk formülü manuel yazıp kopyala/yapıştır yazarak diğer formülleri
doğru bir şekilde yapma şansım var mıdır ?

 

[Ömer]

ilk formülü manuel yazıp kopyala/yapıştır yazarak diğer formülleri
doğru bir şekilde yapma şansım var mıdır ?

Merhaba,

A7:

=EĞER(MOD(SATIRSAY(A$7:A7)-1;4)=3;"";KAYDIR(Sayfa1!$A$5
 ;;MOD(SATIRSAY(A$7:A7)-1;4)))

B7:

=EĞER(A7="";"";KAYDIR(Sayfa1!$A$6;YUKARIYUVARLA(SATIRSAY(B$7:B7)/4;0)-1
 ;MOD(SATIRSAY(B$7:B7)-1;4)))

Hücrelerine yazıp bu iki hücreyi tutup alt satırlara dilediğiniz kadar sürükleyerek kopyalayın.

.

 

[SysReb]

teşekkürler üstad,
çözümün verdiğim örnek için sonuç veriyor ama ben bu çözümü daha geniş bir
listeye uyarlamada sorun yaşıyorum...
bu konuda yardımcı olabilir misin ?

 

[Ömer]

teşekkürler üstad,
çözümün verdiğim örnek için sonuç veriyor ama ben bu çözümü daha geniş bir
listeye uyarlamada sorun yaşıyorum...
bu konuda yardımcı olabilir misin ?

Nasıl bir yardım istiyorsunuz.?

Formülü incelerseniz kolaylıkla uyarlama yapabilrisiniz.

=EĞER(MOD(SATIRSAY(A$7:A7)-1;4)=3;"";KAYDIR(Sayfa1!$A$5
;;MOD(SATIRSAY(A$7:A7)-1;4)))

*A7 ler formülün yazıldığı hücre.

*Mavi işaretli 4: 3 satırda bir atlama yapıldığı fakat 1 satır boş bırakıldığı için 3+1 = 4 olarak hesaplanmıştır.

*Kırmızı işaretli 3: 4.satırda hücre boş olacağı için 4-1=3 olarak hesaplanmıştır.

*Sayfa1!$A$5 ise verinin alınacağı alandaki ilk hücre.


Formülü bu şekilde okuyup istediğiniz dosyaya uyarlayabilirsiniz.

Diğer formüldeki sayılar ve aralık aynı mantıkla yazılmıştır.

.

 

[SysReb]

hocam çok teşekkürler ama inanın işin içinden çıkamıyorum... dosyayı size mail atsam, yardımcı olmanız mümkün mü ?

 

[Ömer]

Dosyadaki bilgileri değiştirip ve küçültüp buraya eklemenizi rica ederim.

 

[SysReb]

hocam yardımların için çok teşekkür ederim.
inanki bir hayat kurtarıyorsun

 

[Ömer]

Diğer sorunuzla ilgisi olmayan bir yapı eklemişsiniz. Üstelik çalışmada birleştirilmiş hücrelerde mevcut.

İlk bakışta birşey anladığım söylenemez. Yazdır sayfasındaki olması gereken verileri artırarak ( sayfa2 de 3 satır içinde ) dosyanızı yeniden eklermisiniz.

.

 

[SysReb]

üstad,
dosyayı istediğin şekilde düzenlemeye çalıştım. birleştirilmiş hücreleri ve veri kalabalığını kaldırdım.
Sayfa2'deki verileri, yazdir'a aktarmak istiyorum. veriler Sayfa2'de yaklaşık 450 satır olacak ve bunu yazdir'a yaptığım örnekteki aralıklarla aktarmak istiyorum.
çok teşekkürler...

 

[SysReb]

Ömer hocam,
dün akşam gönderdiğim dosyaya bakabildiniz mi ? umut var mı ?

 

[Ömer]

Akşam müsait zamanımda ilgileneceğim. Yalnız formülle değil büyük ihtimalle makro ile yapacağım. Sakıncası olmaz sanırım.

.

 

[Ömer]

Ömer hocam,
dün akşam gönderdiğim dosyaya bakabildiniz mi ? umut var mı ?

Sub Duzenle()
 
    Dim i As Long, st1 As Byte, st2 As Byte, st3 As Byte
    Dim st4 As Byte, sat5 As Byte, st6 As Byte
 
    Sheets("yazdir").Select
    Range("C14:G" & Rows.Count).ClearContents
 
    st1 = 4: st2 = 3: st3 = 5: st4 = 6: st5 = 2: st6 = 1
    With Sheets("Sayfa2")
        sat = 14
        For i = 6 To .Cells(Rows.Count, "A").End(xlUp).Row
            Cells(sat, "C") = .Cells(i, st1)
            sat = sat + 2
            Cells(sat, "C") = .Cells(i, st2)
            sat = sat + 2
            Cells(sat, "C") = .Cells(i, st3)
            Cells(sat, "D") = "Mt"
            Cells(sat, "E") = "x"
            Cells(sat, "G") = "Mt"
            Cells(sat, "F") = .Cells(i, st4)
            sat = sat + 2
            Cells(sat, "C") = .Cells(i, st5)
            sat = sat + 2
            Cells(sat, "C") = .Cells(i, st6)
            sat = sat + 2
        Next i
    End With
 
End Sub

Duzenle butonuna basarak deneyiniz.

.

 

[SysReb]

hocam cennetliksin.
çok teşekkür ederim.
sana bir yemek borcum var...