Kendikendini kopyalayan formül?

[muraterguden]

Merhabalar,

A1 hücresinde kolon başlığı olarak İSİM, B1 hücresinde kolon başlığı olarak PUAN yazmaktadır.

A2ye MURAT, B2 ye de 5 yazdıgımda A2:A6 nın MURAT olarak doldurulmasını saglayacak bir fomülü A kolonundaki tüm hücrelere kopyalamak istiyorum. Eger B2 ye 10 girseydim 10 tane MURAT görmem gerek.
Formül verilen değer kadar ismi kopyaladıktan sonra bir şey yapmamalı. Ondan sonra girilecek yeni isim ve B kolonunda karşı gelen hücreye girilecek sayı kadar kopyalamayı yapmalı.

Makro yazmadan formül ile halletmek mümkünmüdür?

Teşekkürler

 

[Emir Hüseyin Çoban]

Sadece bir isim mi gireceksiniz yoksa
Isim ve rakam girmeye asagiya dogru devam mi edilecek.

.

 

[muraterguden]

İlk girilen isim ve rakam girilip istenen kopyalama tamamlandıktan sonra tekrar yeni isim ve o ismin karşısına yeni rakam gireceğim.
Yani A kolonundaki hücreler formüle edilmiş olmalı, üstüne gireceğim isim ve karşısındaki rakam kadar kopyalama yapmak için bekliyor olmalı.

 

[Emir Hüseyin Çoban]

A3 hucresi icin formul. Fazlaca Asagiya dogru cogaltin.

=EĞER((SATIR(A3)-1)<=$B$2;$A$2;"")

.

 

[muraterguden]

Bu çalışırsa sadece bir kere çalışır. Listenin devamında hala B2 deki sayıya bakar...

 

[Emir Hüseyin Çoban]

Formullede yapilabilir ancak kurgulamasi cok zahmetli olucak.
Vakti olan arkadaslar yardimci olacaktir.
Makrolu cozum hazirlamak daha pratik olacaktir.

.

 

[vardar07]

Makrolu çözüme bir örnek olsun.

Sub cogalt()
A = Range("A65536").End(3).Row + 1
B = A + Cells(2, 2) - 1
If Cells(2, "A") <> "" And Cells(2, 2) <> "" Then
For i = A To B
Cells(i, "A") = Cells(2, "A")
Next
Else
MsgBox "YAZDIRILACAK VERİ YOK"
Cells(2, "A").Select
End If
Cells(2, 1) = "": Cells(2, 2) = ""
End Sub