Hücre değeri kadar kopyalama

[SamiDINCER]

Örneğin:
A1 Hücresindeki değer sayısı kadar, A2 den itibaren aşağı doğru kopyalanması
Şöyleki, A1'e 5 yazıldı diyelim. Formül A2 den itibaren aşağı doğru kopyalandığında 5 Adet
5 yazmalı 6. satırda 5 olmayacak.
Yardımlarınız için şimdiden teşekkür ederim.

 

[turist]

Aşağıdaki formülü A2 hücresine yazın aşağıya doğru kopyalayın.

=EĞER(SATIR(A2)<=$A$1+1;$A$1;"")

 

[RONIN1]

Merhaba

Dosyayı inceleyiniz.

iyi çalışmalar

 

[monelogg]

Merhabalar, alternatif olarak şu kodları da deneyebilirsiniz:

Sub kopyala()
ActiveCell.Select
Selection.Copy
For i = ActiveCell.Row To ActiveCell.Row + ActiveCell.Value - 1
Cells(i, ActiveCell.Column).Value = ActiveCell.Value
Next
End Sub

Aktif hücrenin değerini istediğiniz sayıya tamamlayacak şekilde alt alta kopyalıyor.

 

[SamiDINCER]

Sayın Ronin,
vermiş olduğunuz cevap için çok teşekkür ederim. Allah razı olsun, Başarılar dilerim

 

[SamiDINCER]

Sayın turist
Formülünüzdeki A2 yerine A3 yazıldığında sonuca varıyoruz.
Yardımlarınız için çok teşekkürler