Hücre değeri kadar boşluk ekleme

[ofsevim]

https://imgur.com/a/1E9cLCw

Merhabalar . Sağ sütuna 10 yazdım mesela .Aşağı 10 tane boşluk atmasını istiyorum .2 yazdım 2 tane boşluk .Sol sütunda tabi aynısı olarak dolması gerekiyor,Ankaraysa Ankara olarak. Nasıl yapılabilir arkadaşlar

 

[excelokyanus500]

Deneyin
A sütunu ilk sutun kabul edilerek...

Sub ekle()

son = [A65536].End(3).Row
For Z = son To 2 Step -1
If Cells(Z, "b") <> "" Then n = Cells(Z, "b")

For t = 1 To n
Rows(Z + 1).Insert

Next

Next
With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C" 'Aradaki boş hücreler seçilip doldurulacak.
    .Value = .Value
  End With
End Sub

 

[ofsevim]

Deneyin
A sütunu ilk sutun kabul edilerek...

Sub ekle()

son = [A65536].End(3).Row
For Z = son To 2 Step -1
If Cells(Z, "b") <> "" Then n = Cells(Z, "b")

For t = 1 To n
Rows(Z + 1).Insert

Next

Next
With Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = "=R[-1]C" 'Aradaki boş hücreler seçilip doldurulacak.
    .Value = .Value
  End With
End Sub

sadece ikinci satırı yapıyor hocam istediğim şekilde .Ufak bi eksik var sanırım

 

[ofsevim]

sadece ikinci satırı yapıyor hocam istediğim şekilde .Ufak bi eksik var sanırım

Aslında şöyle ilk ve son satır hariç hepsini yapıyor

 

[alicimri]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Offset(1, -1).Value = "" Then
sat = Target.Row
sehir = Target.Offset(0, -1).Value
sayi = Target.Value
Range("A" & sat + 1 & ":A" & sat + sayi).Value = sehir
Range("A" & sat + sayi + 1).Select
End If
End If
End Sub

Yukardaki kodu ilgili sekmenin kod sayfasına yapıştırın
A sütununa şehir ismi yazıp, B sütununa sayı yazıp enter tuşuna basarsanız kod çalışır.

 

[ofsevim]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Offset(1, -1).Value = "" Then
sat = Target.Row
sehir = Target.Offset(0, -1).Value
sayi = Target.Value
Range("A" & sat + 1 & ":A" & sat + sayi).Value = sehir
Range("A" & sat + sayi + 1).Select
End If
End If
End Sub

Yukardaki kodu ilgili sekmenin kod sayfasına yapıştırın
A sütununa şehir ismi yazıp, B sütununa sayı yazıp enter tuşuna basarsanız kod çalışır.

Teşekkür ederim deniyeyim hocam