- Katılım
- 24 Ekim 2023
- Mesajlar
- 6
- Excel Vers. ve Dili
- 365 - TR
Merhabalar,
Bir sorun ile karşı karşıyayım. Örneğin: A sütunundaki hücrelerde yazan değerler kadar alt alta satır açmam gerekiyor. Buradaki forumdan bir kod buldum ve çalıştırdım ancak bunu sadece tek bir hücre için yapıyor. Satır açmak için kullanacağım sayı değerleri 1000 adete kadar çıkabiliyor. Yani A sütununda 1000 hücrelik değer girmiş olsam bile o 1000 hücredeki değerlere göre altlarına satır açması gerekiyor.
Buradan bulup çalıştırdığım kod bu:
Kodu bulduğum konu: https://www.excel.web.tr/threads/huecre-degeri-kadar-satir-ekleme-makrosu-ariyorum.173464/
Yardımınız için şimdiden teşekkür ederim.
Bir sorun ile karşı karşıyayım. Örneğin: A sütunundaki hücrelerde yazan değerler kadar alt alta satır açmam gerekiyor. Buradaki forumdan bir kod buldum ve çalıştırdım ancak bunu sadece tek bir hücre için yapıyor. Satır açmak için kullanacağım sayı değerleri 1000 adete kadar çıkabiliyor. Yani A sütununda 1000 hücrelik değer girmiş olsam bile o 1000 hücredeki değerlere göre altlarına satır açması gerekiyor.
Buradan bulup çalıştırdığım kod bu:
Kod:
Sub satirrekle()
Dim sat As Integer
sat = Range("A1").Value
If sat = 0 Then Exit Sub
Rows(2 & ":" & 1 + sat).Insert Shift:=xlDown
End Sub
Yardımınız için şimdiden teşekkür ederim.