bir hücredeki değeri farklı hücrede alta doğru yazdırmak

[UKDEM]

Açıklama
c7 ile a6 yı çarpsın
çarpımın sonucu kadar l7 ye c1 yazsın
sonra l7 lerin yanına c7 şer tane b2 den başlayarak sırayla b dekileri yazsın

 

[Ayhan Ercan]

Merhaba

Valla ne yalan söyleyeyim, çok ilginç bir soruya ilginç bir cevap buldum diye düşünüyorum..

Ek Dosyayı inceleyiniz...

Private Sub CommandButton1_Click()
x = [c7]: y = [a6]
z = x * y
For i = 1 To z
Cells(i, "L") = [c1]
Next
Cells(1, "k").Activate
For c = 2 To [b65536].End(3).Row
    For a = 0 To x - 1
    ActiveCell.Offset(a, 0) = Cells(c, 2)
    Next
    ActiveCell.Offset(x, 0).Activate
Next
End Sub

 

[UKDEM]

Eline sağlık arkadaşım çok güzel olmuş.
Bir de bunu alanları seçtirmeli yapabilir misin?
Yani ben bunu yaklaşık 10000 satırlık belkide daha fazla bir işlem için kullanacağım.
Yani şöyle;
----------------------------------------------------------------------------
c7 ile a6 yı çarpsın
çarpımın sonucu kadar l7 ye c1 yazsın
sonra l7 lerin yanına c7 şer tane b2 den başlayarak sırayla b dekileri yazsın
----------------------------------------------------------------------------
sonra gitsin
d7 ile a6 yı çarpsın
yukarıdakinin altından kaldığı yerden alta doğru devam ettirsin.

Merhaba

Valla ne yalan söyleyeyim, çok ilginç bir soruya ilginç bir cevap buldum diye düşünüyorum..

Ek Dosyayı inceleyiniz...

Private Sub CommandButton1_Click()
x = [c7]: y = [a6]
z = x * y
For i = 1 To z
Cells(i, "L") = [c1]
Next
Cells(1, "k").Activate
For c = 2 To [b65536].End(3).Row
    For a = 0 To x - 1
    ActiveCell.Offset(a, 0) = Cells(c, 2)
    Next
    ActiveCell.Offset(x, 0).Activate
Next
End Sub

 

[Ayhan Ercan]

Eline sağlık arkadaşım çok güzel olmuş.
Bir de bunu alanları seçtirmeli yapabilir misin?
Yani ben bunu yaklaşık 10000 satırlık belkide daha fazla bir işlem için kullanacağım.

Tekrar Merhaba Sn UKDEM

Sorunuzu okuyup anlamak gerçekten kolay bişey değil, Belki yazılan kod 3-5 satırlık diye kolay oldu sanmayın lütfen. 1 Saate yakın, Bulmaca çözer gibi adım adım, harf harf uğraştım desem inanın yalan olmaz.
Bunları bir serzeniş veya sitem olarak algılamassanız sevinirim, bilakis bizlerde soruları zevkle, zaman zaman yeni bişeyler daha öğrene öğrene, zaman zaman tecrübe ede ede cevaplıyoruz.

Sorunuzu daha net ve açıklamalı bir örnek dosya ile açıklarsanız daha net ve hızlı cevap alabilirsiniz..

 

[UKDEM]

Sayın Ayhan Ercan ;
Vermiş olduğunuz emek için teşekkürü borç bilirim gerçekten.
Aslına bakarsanız üzerinde biraz oynayarak istediğim sonuçları elde ettim. Hatta şu an onunla istediğim verileri hazırlıyorum. Bir kısmını manuel yapıyorum ama olsun. Böyle bile işimi görüyor. Çok teşekkür ederim ilginize....

Tekrar Merhaba Sn UKDEM

Sorunuzu okuyup anlamak gerçekten kolay bişey değil, Belki yazılan kod 3-5 satırlık diye kolay oldu sanmayın lütfen. 1 Saate yakın, Bulmaca çözer gibi adım adım, harf harf uğraştım desem inanın yalan olmaz.
Bunları bir serzeniş veya sitem olarak algılamassanız sevinirim, bilakis bizlerde soruları zevkle, zaman zaman yeni bişeyler daha öğrene öğrene, zaman zaman tecrübe ede ede cevaplıyoruz.

Sorunuzu daha net ve açıklamalı bir örnek dosya ile açıklarsanız daha net ve hızlı cevap alabilirsiniz..

 

[Ayhan Ercan]

Sayın Ayhan Ercan ;
Vermiş olduğunuz emek için teşekkürü borç bilirim gerçekten.
Aslına bakarsanız üzerinde biraz oynayarak istediğim sonuçları elde ettim. Hatta şu an onunla istediğim verileri hazırlıyorum. Bir kısmını manuel yapıyorum ama olsun. Böyle bile işimi görüyor. Çok teşekkür ederim ilginize....

Rica ederim.
İyi çalışmalar.. k::