bir hücre değerini istenilen sayıda başka bir sütun hücresine atama

[SSK1907]

bir hücre değerini istenilen sayıda başka bir sütun hücresine atama yapamıyorum ekte örnekledim.

 

[antonio]

Aşağıdaki kodları deneyin.

Sub veriyi_belirtilen_adet_atamak()
Dim sh As Worksheet, ss As Long, deg As String, adet As Long

Set sh = Sayfa1
    ss = sh.Range("A56789").End(3).Row
    sh.Range("E1:E56789").ClearContents
For i = 1 To ss
    deg = sh.Range("A" & i).Value
    adet = sh.Range("B" & i).Value
        ilk = sh.Range("E56789").End(3).Row
        If ilk > 1 Then
            ilk = ilk + 1
        End If
    For d = ilk To ilk + adet - 1
        sh.Range("E" & d).Value = deg
    Next d
Next i
End Sub

 

[SSK1907]

Çok teşekkür ederim. Yalnız Sayfa2 deki bir sütuna nasıl yazdırabilirim.

 

[antonio]

Çok teşekkür ederim. Yalnız Sayfa2 deki bir sütuna nasıl yazdırabilirim.

[COLOR="Red"][B]Sayfa2[/B][/COLOR].Range("[COLOR="Red"][B]E[/B][/COLOR]" & d).Value = deg

 

[antonio]

Sayın SSK1907;
VBA Makro bölümünde ve Excele Yeni Başlayanlar bölümlerinde aynı konuyu aynı örnek dosya ile eş zamanlı olarak başlatmış bulunmaktasınız.
http://www.excel.web.tr/f48/bir-hucre-deoerini-istenilen-sayyda-ba-ka-bir-t167199.html
Böylelikle farklı forumdaki soruları görüntülemekte olan destek ekibi ile üyelerinin çabalarını suistimal etmeniz ve yardım bekleyen insanların yardım haklarını gasp etmiş olmanız söz konusudur. Bu forumda bu tür davranışların hiçkimse tarafından hoş karşılanmadığını bilmenizde yarar vardır.