Makroyu değişik hücrelerde nasıl çalıştırabilirim?

[KARTAL06]

Basit bir işlem için bir makro olşturdum. Ama sadece o hücreyi seçince çalışıyor. Yapmam gereken aynı satırda diğer hücrelerde çalışmasını sağlamak. Makroda nereyi değiştirmem gerek? Yada nasıl bir ekleme yapmalıyım. Örnek ekte.

 

[1903bjk]

Basit bir işlem için bir makro olşturdum. Ama sadece o hücreyi seçince çalışıyor. Yapmam gereken aynı satırda diğer hücrelerde çalışmasını sağlamak. Makroda nereyi değiştirmem gerek? Yada nasıl bir ekleme yapmalıyım. Örnek ekte.

sayın kartal

kod ektedir

 

[KARTAL06]

Emeğinize sağlık ama sorun var.

D8, E8 de sorunsuz çalışıyor ama F8, G8, H8.......yani 8.satırda diğer hücrelerde çalışması gerekiyor. Nasıl bir değişiklik yaptınız ben kendi çalışma kitabıma uygularken nereleri değiştirmem gerekiyor? Yada nereyi eklemem gerekir?

 

[KARTAL06]

Sorunu gideremedim

Uzman bir arkadaş yardım edebilirmi?

 

[1903bjk]

ekteki dosyayı inceleyiniz

 

[KARTAL06]

Teşekkürler çalışıyor emeğinize sağlık.

Bir soru daha;(umarım sizi sıkmıyorum)
Değerleri Formülden kurtarmak mümkünmü acaba? Çünki sayfa 1deki tablo devamlı değişiyor. Yada ben onun için ayrı bir makromu kaydedeyim?

 

[1903bjk]

Bir soru daha;(umarım sizi sıkmıyorum)
Değerleri Formülden kurtarmak mümkünmü acaba? Çünki sayfa 1deki tablo devamlı değişiyor. Yada ben onun için ayrı bir makromu kaydedeyim?

dediklerinizden birşey anlamadım
örnek yollar mısınız

 

[KARTAL06]

Sorum şu

Değerler Etopla formülü ile birlikte geliyor formülden kurtarmak için ben aynı satırı kopyalayıp "Özel yapıştır-değerleri" seçeneği ile yapmıştım.Eğer fomülle gelirse sayfa1 deki tablo değiştiği için değerlerde değişecek.
Bir sorun daha var ben kod yazmayı bilmiyorum bu makroyu kendi tabloma uyarlamak için nereleri değişitirmeliyim?
Alta kopyaldığım makro üzerinde açıklama ile işaretlemeniz mümkünmü?

Sub ilkgidecek()
ActiveCell.FormulaR1C1 = "=+SUMIF(Sayfa1!R6C2:R25C2,RC3,Sayfa1!R6C3:R25C3)"

Selection.Copy
ActiveCell.Offset(0, 0).Range("A1:A9").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, 0).Range("A1").Select


End Sub

 

[1903bjk]

Değerler Etopla formülü ile birlikte geliyor formülden kurtarmak için ben aynı satırı kopyalayıp "Özel yapıştır-değerleri" seçeneği ile yapmıştım.Eğer fomülle gelirse sayfa1 deki tablo değiştiği için değerlerde değişecek.
Bir sorun daha var ben kod yazmayı bilmiyorum bu makroyu kendi tabloma uyarlamak için nereleri değişitirmeliyim?
Alta kopyaldığım makro üzerinde açıklama ile işaretlemeniz mümkünmü?

Sub ilkgidecek()
ActiveCell.FormulaR1C1 = "=+SUMIF(Sayfa1!R6C2:R25C2,RC3,Sayfa1!R6C3:R25C3)"

Selection.Copy
ActiveCell.Offset(0, 0).Range("A1:A9").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(0, 0).Range("A1").Select


End Sub

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
kodunu
Selection.PasteSpecial Paste:=xlPastevalues, Operation:=xlNone, SkipBlanks _

olarak değiştirin

kodları kendi tablonuza uyarlamanıza gerek yok
seçtiğiniz hücreyi referans alır

 

[KARTAL06]

Değiştirdim

Satırı değiştirdim ama sadece 10numaralı parçanın adadi olan 1 i yapıştırıyor.

ActiveCell.FormulaR1C1 = "=+SUMIF(Sayfa1!R6C2:R25C2,RC3,Sayfa1!R6C3:R25 C3)"
satırı anladığım kadarı ile etopla için burada kendi tablomda etopla için sayfa adını "aralık hanesi " "ölçüt" ve "toplam aralığı" için nasıl bir değişiklik yapmalıyım

ActiveCell.Offset(0, 0).Range("A1:A9").Select
Satırında A9 değerini A10 yaptım ve 100 numaralı parça eklediğimde 1 satır fazla yaptı.
Bu kodun mantığını anlamak için soruyorum. Aslında kendi çalışma kitabımı yollayacağım ama çok büyük bir stok programı.
Bir Beşiktaşlı olarak ayrıca emeklerinize teşşekkür ederim.

 

[1903bjk]

Satırı değiştirdim ama sadece 10numaralı parçanın adadi olan 1 i yapıştırıyor.

ActiveCell.FormulaR1C1 = "=+SUMIF(Sayfa1!R6C2:R25C2,RC3,Sayfa1!R6C3:R25 C3)"
satırı anladığım kadarı ile etopla için burada kendi tablomda etopla için sayfa adını "aralık hanesi " "ölçüt" ve "toplam aralığı" için nasıl bir değişiklik yapmalıyım

ActiveCell.Offset(0, 0).Range("A1:A9").Select
Satırında A9 değerini A10 yaptım ve 100 numaralı parça eklediğimde 1 satır fazla yaptı.
Bu kodun mantığını anlamak için soruyorum. Aslında kendi çalışma kitabımı yollayacağım ama çok büyük bir stok programı.
Bir Beşiktaşlı olarak ayrıca emeklerinize teşşekkür ederim.

R1C1 formatındaki formüller cell isimlerini değil satır ve sütun aralıklarını referans alır
r row c ise column u temsil eder
ActiveCell.Offset(0, 0).Range("A1:A9").Select
kodunun mantığı ise şudur.
tıkladığınız hücrenin 8 alt satırını birlikte seçer

sanırım bu bilgiler ışığında gerekli düzeltmeleri yaparsınız

 

[KARTAL06]

Hemen denemeye başlıyorum

Teşekkürler hemen denemeye başlıyorum. Neticeyi bildiririm.

 

[KARTAL06]

Sadece yapıştırma işi olmadı

Fomülden kurtararak "degerleri yapıştır " ilk satır neyse hepsine onu yapıştırıyor. üsteki mesjlarda belirttiğiniz gibi bu satırı değiştirmiştim.
Selection.PasteSpecial Paste:=xlPastevalues, Operation:=xlNone, SkipBlanks _

 

[KARTAL06]

Tamam

Şimdilik halletim sizin makronuzun altına kopyala yapıştır için yeni bir makro yapıp kopyaladım çalışıyor. Değerli vaktinizi ayırdığınız için teşekkür ederim.