makroyu calısmıyor

[metinavci23]

ekte gmnderdiğim dosyada birseyler yapmaya çalıstım ama makro çalısmadı.yapmak istediğim bir hayvanın soy ağacı.yardımlarınızı bekliyorum

 

[ceyrek]

sb.Range(sb.Cells(Sat + 53, "m")).Value = sv.Range(sv.Cells(a, "d")).Value
şu şekilde düzenleyiniz:
sb.Cells(Sat + 53, "m").Value = sv.Cells(a, "d").Value
çalışacaktır.

Bir de sizi bu kadar kopyala-yapıştırdan kurtarması için döngüler kurmanızı tavsiye ederim.
örnek:
sb.Range(sb.Cells(Sat + 53, "m")).Value = sv.Range(sv.Cells(a, "d")).Value
sb.Range(sb.Cells(Sat + 54, "m")).Value = sv.Range(sv.Cells(a, "e")).Value
sb.Range(sb.Cells(Sat + 55, "m")).Value = sv.Range(sv.Cells(a, "f")).Value
sb.Range(sb.Cells(Sat + 56, "m")).Value = sv.Range(sv.Cells(a, "g")).Value
sb.Range(sb.Cells(Sat + 57, "m")).Value = sv.Range(sv.Cells(a, "h")).Value
sb.Range(sb.Cells(Sat + 58, "m")).Value = sv.Range(sv.Cells(a, "I")).Value
sb.Range(sb.Cells(Sat + 59, "m")).Value = sv.Range(sv.Cells(a, "j")).Value
sb.Range(sb.Cells(Sat + 60, "m")).Value = sv.Range(sv.Cells(a, "K")).Value
sb.Range(sb.Cells(Sat + 61, "m")).Value = sv.Range(sv.Cells(a, "L")).Value
yerine
For i = 53 To 61
sb.Cells(Sat + i, "m").Value = sv.Cells(a, i - 49).Value
Next
İyi çalışmalar...

 

[metinavci23]

cevap

ceyrek arkadaşımın cevabından pek birşey anlayamadım.başka yardımcı olacak yok mu ?cok acil

 

[Orion1]

ceyrek arkadaşımın cevabından pek birşey anlayamadım.başka yardımcı olacak yok mu ?cok acil

Sayın ceyrek cevabı gayette iyi vermiş.

For i = 53 To 61
sb.Cells(Sat + i, "m").Value = sv.Cells(a, i - 49).Value
Next

 

[metinavci23]

cevap

benim anlayamadığım aşağıdaki kodu

For i = 53 To 61
sb.Cells(Sat + i, "m").Value = sv.Cells(a, i - 49).Value
Next

tablodaki mesela "v" sütununa nasıl uygulayacağız

 

[Orion1]

benim anlayamadığım aşağıdaki kodu

For i = 53 To 61
sb.Cells(Sat + i, "m").Value = sv.Cells(a, i - 49).Value
Next

tablodaki mesela "v" sütununa nasıl uygulayacağız

Aşağıdaki gibi.
For i = 53 To 61
sb.Cells(Sat + i, "v").Value = sv.Cells(a, i - 49).Value
Next

 

[metinavci23]

cevap

Sayın Orion2
benim anlayamadığım
eğer
for i = 20 to 31 olur ise
ondan sonra ki kod ne olacak.benim anlayamadığım kodun sonundaki 49 rakamı nereden geliyor.umarım anlatabilmişimdir.bana bunu zahmet değil ise izah edebilirmisiniz.deneme yanılma metodu ile belki yapabilirim ama işim mantığını anlamaya çalışıyorum.

 

[Orion1]

For i = 53 To 61
sb.Cells(Sat + i, "m").Value = sv.Cells(a, i - 49).Value
Next
yukarıdaki i - 49 sütun numarasını gösteriyor.
Döngüye ilk başlandığında sütun = 53 - 49 oluyor O da eşittir 4 oluyor.Yani döngüye ilk başlandığında 4ncü sütundaki veri alınıyor.yani D sütunundaki veri alnıyor.
Döngü gereği sonra 54 - 49 5nci sütun yani E sütunu , böylece 61-49 = 12nci sütuna kadar döngü yardımı ile veriler alınıyor.
Bilmem anlatabildimmi?

 

[metinavci23]

cevap

teşekürler sayın Orion 2 .yine siz yardımcı oldunuz.iyi akşamlar

 

[Orion1]

teşekürler sayın Orion 2 .yine siz yardımcı oldunuz.iyi akşamlar

Rica ederim.
İyi akşamlar.