M

Çözüldü Birsatırı Adet Yazan Sayısıkadar Altta Tekrarlamak

M

MUSTAFA47

Normal Üye
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
MUSTAFA47' Alıntı:
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
Genişletmek için tıklayın ...
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: 2
Oyla 0 Olumsuz oyla
Merhabalar Sn. @MUSTAFA47

www. ExcelDestek.com 'a 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.
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
PriveT' Alıntı:
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
Genişletmek için tıklayın ...
Öncelikle ilginiz için teşekkür ederim.
B10 markasına kadar doğru kopyalıyor ama sonrasında hep B10 u kopyalıyor.
 
Oyla 0 Olumsuz oyla
AhmetRasim' Alıntı:
Merhabalar Sn. @MUSTAFA47

www. ExcelDestek.com 'a 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.
Genişletmek için tıklayın ...
Çok teşekkür ederim, ikinci yaptığınız makroda çalıştı.
 
Moderatörün son düzenlenenleri:
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
MUSTAFA47' Alıntı:
Öncelikle ilginiz için teşekkür ederim.
B10 markasına kadar doğru kopyalıyor ama sonrasında hep B10 u kopyalıyor.
Genişletmek için tıklayın ...
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
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Üst