formül kopyalama hk. yardım

Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
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 ?
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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:

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

Kod:
=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.

.
 
Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

.
 
Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Dosyadaki bilgileri değiştirip ve küçültüp buraya eklemenizi rica ederim.
 
Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
hocam yardımların için çok teşekkür ederim.
inanki bir hayat kurtarıyorsun :)
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

.
 
Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
ü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...
 

Ekli dosyalar

Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
Ömer hocam,
dün akşam gönderdiğim dosyaya bakabildiniz mi ? umut var mı ?
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Ömer hocam,
dün akşam gönderdiğim dosyaya bakabildiniz mi ? umut var mı ?
Kod:
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.

.
 

Ekli dosyalar

Katılım
29 Mayıs 2008
Mesajlar
21
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
14/06/2019
hocam cennetliksin.
çok teşekkür ederim.
sana bir yemek borcum var... :)
 
Üst