Verilen sayı kadar alt alta hücre kopyalama

[savasbayram]

Merhaba
Bir hücredeki bilgiyi yan hücredeki sayı kadar alt alta kopyalamak istiyorum.
mesela1a hücresinde "metin1" var. 1b hücresinde ise "4" rakamı var. 2a hücresinde "metin2" var. 2b hücresinde ise "2" rakamı var. aşağıdaki tabloyu bir formül ile oluşturabilmem mümkün mü? Şimdiden teşekkür ederim.

metin1
metin1
metin1
metin1
metin2
metin2

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Yanılmıyorsam Sn. Ali beyin bununla ilgili bir çözümü vardır. Eğer linkini bulursam eklerim.

Bu işlem için makro kullanmanız daha uygun olur. Aşağıdaki kod A-B sütunlarındaki verileri D sütununa listeler.

Option Explicit
 
Sub VERİLERİ_TEKRARLI_LİSTELE()
    Dim X As Integer, Satır As Long
        
    Columns(4).ClearContents
    Satır = 1
    
    For X = 1 To Range("A65536").End(3).Row
        Range("D" & Satır & ":D" & Satır + Cells(X, "B") - 1) = Cells(X, "A")
        Satır = Range("D65536").End(3).Row + 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[savasbayram]

Üstadım verdiğiniz kod sorumun cevabını karşıladı ancak benim kod yazma bilgim olmadığı için yazdığınız kodu kendi ihtiyacıma uyarlayamadım. Rica etsem e-posta adresinizi verirseniz. Durumu tam olarak tablo ile izah edeyim.

 

[Korhan Ayhan]

Selamlar,

Siz bence dosyanızın küçük bir örneğini foruma ekleyin çözüme herkes ortak olsun.

 

[savasbayram]

Excelde fatura kesiyorum. Sonra faturadaki her ürün için ve faturadaki adet kadar barkod yazdırmam gerekiyor. Netten ücretsiz bir barkod proğramı (datakent) indirdim. Barkod programı excelden veri alma özelliğine sahip. Barkod programı ilk 2 sütunu baz alıyor. 1. sütunda barkoda dönüştürülecek kod olması gerekmekte. 2. sütunda ise ürünün adı olması gerekiyor. Şimdi bu excel tablosunu kopyala yapıştır şeklinde oluşturmak manuel olarak kolay ancak benim tıkandığım mevzu şu. Kimi üründen 3 adet kiminden 5 adet vs. Barkod yazdırmam gerekiyor. Ben faturadan kopyaladığım kod ve ürün adı bilgisini c ve d hücrelerine yan yana yapıştıracağım. resim 1.

Makroyu çalıştırdıktan sonra a ve b sütunlarında tablodaki durum oluşabilir mi?

Tabloda 2 satır örnek gösterdim ancak bu 50 taneye kadar çıkabiliyor.
Selamlar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub VERİLERİ_TEKRARLI_LİSTELE()
    Dim X As Integer, Satır As Long
        
    Columns("A:B").ClearContents
    Satır = 1
    
    For X = 1 To Range("C65536").End(3).Row
        Range("A" & Satır & ":A" & Satır + Cells(X, "E") - 1) = Cells(X, "C")
        Range("B" & Satır & ":B" & Satır + Cells(X, "E") - 1) = Cells(X, "D")
        Satır = Range("A65536").End(3).Row + 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[savasbayram]

Teşekkür

Korhan bey çok teşekkür ederim.

 

[savasbayram]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub VERİLERİ_TEKRARLI_LİSTELE()
    Dim X As Integer, Satır As Long
        
    Columns("A:B").ClearContents
    Satır = 1
    
    For X = 1 To Range("C65536").End(3).Row
        Range("A" & Satır & ":A" & Satır + Cells(X, "E") - 1) = Cells(X, "C")
        Range("B" & Satır & ":B" & Satır + Cells(X, "E") - 1) = Cells(X, "D")
        Satır = Range("A65536").End(3).Row + 1
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Korhan bey ben kodu şu şekilde değiştirdim fakat 45. satırı almıyor.
toplamı 45 satırdan oluşan listede 46. satır boş olduğu içinmi?
Selamlar.

Option Explicit

Sub VERİLERİ_TEKRARLI_LİSTELE()
Dim X As Integer, Satır As Long

Columns("A:B").ClearContents
Satır = 1

For X = 10 To Range("C65536").End(3).Row
Range("A" & Satır & ":A" & Satır + Cells(X, "G") - 1) = Cells(X, "D")
Range("B" & Satır & ":B" & Satır + Cells(X, "G") - 1) = Cells(X, "F")
Satır = Range("A65536").End(3).Row + 1
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Korhan Ayhan]

Selamlar,

Döngü "C" sütunundaki dolu satır sayısı kadar işlem yapmaktadır. Lütfen "C" sütununu kontrol edin.

 

[savasbayram]

Teşekkür ederim,
Excel hücre içindeki html metin kodlarını temizlemeyle alakalı bir yönteminiz varmı?

 

[Korhan Ayhan]

Selamlar,

HTML metin kodu içeren bir dosya eklerseniz ve nereleri temizlemek istediğinizi belirtirseniz elimizden gelen desteği veririz.

 

[savasbayram]

html kodlarının silinmesi

Ekte A1 hücresindeki metini B1 hücresindeki metin haline bir HTML editör yardımıyla çevirebiliyorum. Bunu makro kullanarak yapmam mümkünmü?
Örneği incelerseniz sadece kodları kaldırmıyor, html kodlu türkçe karakterleride çevirerek düzeltiyor.
Saygılarımla

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[savasbayram]

Korhan bey ,
Öncelikle uğraşınız için teşekkür ederim.
Yazdığınız kodun mantığını anladım. Ancak işlem tamamlandı dediğinde düzeltilmiş metini nereye yazıyor? B1 satırını sildim butona bastım fakat olmadı.
Selamlar

 

[Korhan Ayhan]

Selamlar,

Bozuk veilerinizi A sütununa aktarın. Kod direkt olarak A sütununda düzenleme yapmaktadır.

 

[Korhan Ayhan]

Selamlar,

Özel mesajınıza istinaden eklediğim dosyayı tekrar inceledim. Veri uzunluğundan dolayı kod istenilen sonucu vermiyor. Sanıyorum deneme yaparken kısa veri içeren hücre üzerinde çalışmışım. Üstteki mesajımdaki örnek dosyadaki kodu revize ettim.

Sayfa2 deki bozuk karakterler ve karşılık değerleri eksik olabilir. Siz ihtiyacınıza göre düzenleyebilirsiniz. Verilerinizi "A" sütununa yapıştırın ve butona tıklayın.

 

[savasbayram]

Saat gibi çalışıyor.
Teşekkür ederim.

 

[camene]

arkadaşlar acil yardım .....

gerçi sorucağım soru da bu başlık altında sormam doğru olur mu bilmiyorum?

elimde excell 2007 var bunda ki sıkıntım şu


a (stunu alt alta 4 tane veri var)

1
2
3
4

benim yapmak istediğim şey

b stunu 1 2
c stununda 3 4

olacak şekilde yanyana birleştirmem gerekmektedir..

bununla ilgili yardımcı olabilirseniz sevinirim.. şimdiden teşekkürler...

 

[druaglin]

Korhan teşekkür ederim. iyi bir makro olmuş

 

[cenkoran]

Selamlar,

Excell 2013'de kullanmak istediğimde "Type Mismatch" 13 nolu hatayı alıyorum.
Yardımcı olabilir misiniz ?

Option Explicit

Sub VERİLERİ_TEKRARLI_LİSTELE()
Dim X As Integer, Satır As Long

Columns(4).ClearContents
Satır = 1

For X = 1 To Range("A65536").End(3).Row
Range("D" & Satır & "" & Satır + Cells(X, "B") - 1) = Cells(X, "A")
Satır = Range("D65536").End(3).Row + 1
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub