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

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

MUSTAFA47

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
4
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Çözüm
Ömer BARAN
@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: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)
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: 
İndirmek 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: 
İndirmek 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: 
İndirmek 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: 37
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: 
İndirmek 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: 
İndirmek 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: 
İndirmek 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 Alt