• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Verilen sayı kadar alt alta hücre kopyalama

S

savasbayram

Katılım
1 Ekim 2010
Mesajlar
17
Excel Vers. ve Dili
2003 türkçe
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
 
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.

Kod: 
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
 
Ü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.
 
Selamlar,

Siz bence dosyanızın küçük bir örneğini foruma ekleyin çözüme herkes ortak olsun.
 
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.
1jpg.JPG
Makroyu çalıştırdıktan sonra a ve b sütunlarında tablodaki durum oluşabilir mi?
2.JPG
Tabloda 2 satır örnek gösterdim ancak bu 50 taneye kadar çıkabiliyor.
Selamlar
 
Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Kod: 
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
 

Ekli dosyalar

Korhan Ayhan' Alıntı:
Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Kod: 
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
Genişletmek için tıkla ...

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
 
Selamlar,

Döngü "C" sütunundaki dolu satır sayısı kadar işlem yapmaktadır. Lütfen "C" sütununu kontrol edin.
 
Teşekkür ederim,
Excel hücre içindeki html metin kodlarını temizlemeyle alakalı bir yönteminiz varmı?
 
Selamlar,

HTML metin kodu içeren bir dosya eklerseniz ve nereleri temizlemek istediğinizi belirtirseniz elimizden gelen desteği veririz.
 
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
 

Ekli dosyalar

Selamlar,

Ekteki örnek dosyayı incelermisiniz.
 

Ekli dosyalar

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
 
Selamlar,

Bozuk veilerinizi A sütununa aktarın. Kod direkt olarak A sütununda düzenleme yapmaktadır.
 
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.
 
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...
 
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 & ":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
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst