Bir Satırı Yazılı Adet Kadar Tekrarlama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
MUSTAFA47

Kısa Açıklama

Bir Satırı Yazılı Adet Kadar Tekrarlama isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Bir satır karsısındaki adet sayısı kadar o satırı tekrarlamak istiyorum acaba öyle bir formül var mıdır ?
örnek olarak marka adlı bir Excel dosyası paylaşıyorum.Teşekkürler şimdiden.
Örneğin
ad adet kılo yapmak iistediğim ad adet kılo
mustafa 4 80 mustafa 1 80
mustafa 1 80
mustafa 1 80
mustafa 1 80
 
Ekli dosyalar
Tarihe göre sırala Oylamaya göre sırala
Merhaba,
Öncelikle forumumuza hoşgeldiniz.
Ben F ve G sütununu yardımcı kolon olarak kullanarak istediğiniz şeyi yaptım.
Belki daha sade bir çözüm de gelebilir.

F4 hücresine aşağıdaki formülü yapıştırıp aşağı doğru çoğaltın.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

G4 hücresine aşağıdaki formülü yapıştırıp aşağı doğru çoğaltın.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

H4 hücresine aşağıdaki formülü yapıştırıp sağa ve aşağı doğru (tüm satırda 0 değerleri gelene kadar) çoğaltın.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

Çok iç içe olması sebebiyle yardımcı kolonları farklı yere taşıyıp formülü güncelleyebilirsiniz.
 
Ekli dosyalar
  • 1633009204180.webp
    1633009204180.webp
    11.5 KB · Görüntüleme: 5
Oyla 0 Olumsuz oyla
Merhabalar Sn. @MUSTAFA47

Sitemize hoş geldiniz.

-- Alternatif olarak makro örneği aşağıdadır.

-- Çelikhane sayfası üzerinde Sağ Tuş \ Kod Görüntüle 'yi tıklayınız.

1633009353632.webp


-- Açılan sayfaya aşağıdaki kodları ekleyiniz.
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(13 satır)

-- Sayfada istediğiniz bir alana herhangi bir şekil ekleyip, şeklin üzerinde Sağ Tuş \ Makro Ata 'yı tıklayınız.

1633009454892.webp


-- Açılan pencerede satir_ekle_kopyala isimli makroyu seçip Tamam ile pencereyi kapatınız.

1633045478196.webp


-- Sayfaya eklediğiniz şeklin üzerine bir kere tıklayıp makroyu çalıştırabilirsiniz.

*** Not: Verilerin bulunduğu satır sayısı çoğaldıkça makroda yavaşlama olacaktır, bilginize.

** 01/10/2021 güncelleme notu
-- Mesaj içerisindeki kod güncellenmiştir.
 
Oyla 0 Olumsuz oyla
@MUSTAFA47
Benim cevabım da alternatif olsun.
Sonuçta oluşacak veri yığını büyük olduğunda hız açısından aşağıdaki kod daha hızlı sonuç üretecektir.
Kontrol bakımından ben sonuçları H:L sütununa yazdırayım dedim.

Kontrol sonucunda sorun yok ise kodda kırmızı işaretlediğim kısımları
Range("H4:L" & Rows.Count).ClearContents: [H4].Resize(say, 5) = snc
Range("A4:E" & Rows.Count).ClearContents: [A4].Resize(say, 5) = snc
olarak değiştirirsiniz sonuçlar A:E sütunlarına yazdırılmış olur.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
Evet şimdi farkettim. G4 hücresindeki formülü deneme amaçlı 14. satıra kadar hazırlamıştım.
Geri düzenlemeyi atlamışım.
Aşağıdaki gibi düzeltebilirsiniz.

G4 hücresine aşağıdaki formülü yapıştırıp aşağı doğru çoğaltın.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)
 
Ekli dosyalar
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst