[Yardım]  Hücre değerine göre Satır Ekleme veya kopyalama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Hücre değerine göre Satır Ekleme veya kopyalama

İleti#1)  acdenis » 11 Nis 2019 16:16

Merhaba,

Hücre değerine göre hücrenin bulunduğu satırı kopyalamak istiyorum. Forumda araştırdım aşağıdaki gibi belirli sayıda satır eklemeye ilişkin kodları buldum ama eklenecek veya kopyalanacak satır sayısını hücreden almak istersek nasıl yapabiliriz?

Kod: Tümünü seç
Sub İki_Satir_Ekle()
    Dim a As Byte, sat As Byte
    [A2].Select
    a = 3: sat = 2
    While ActiveCell.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell.Offset(a, 0).Select
    Wend
    a = Empty: sat = Empty
End Sub


Hucre değeri kadar satır ekle.rar


Yardımcı olabilir misiniz?

Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
acdenis
Yeni Başlamış
 
Adı Soyadı:Bayram GUL
Kayıt: 05 Eyl 2010 00:20
Konum: İstanbul
Meslek: Planlama Uzmanı
Yaş: 38
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sisli

Cevap: Hücre değerine göre Satır Ekleme veya kopyalama

İleti#2)  veyselemre » 11 Nis 2019 17:10

Kod: Tümünü seç
Sub satirEkle()
    For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
        a = Cells(i, 2).Value
        If a > 1 Then Rows(i).Offset(1).Resize(a - 1).Insert Shift:=xlDown
    Next
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 384
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Hücre değerine göre Satır Ekleme veya kopyalama

İleti#3)  acdenis » 12 Nis 2019 18:30

Teşekkürler kod işe yaradı hücreleri ekliyor ama son satırdan sonra hata veriyor.
kapatmadığımız bir syntax mı var acaba.
Kullanıcı avatarı
acdenis
Yeni Başlamış
 
Adı Soyadı:Bayram GUL
Kayıt: 05 Eyl 2010 00:20
Konum: İstanbul
Meslek: Planlama Uzmanı
Yaş: 38
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sisli

Cevap: Hücre değerine göre Satır Ekleme veya kopyalama

İleti#4)  xpeker » 15 Nis 2019 00:23

Kod: Tümünü seç
Sub satirEkle()
On Error Resume Next
Dim i As Integer
Dim a As Integer
    For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
        a = Cells(i, 2).Value
        If a > 1 Then Rows(i).Offset(1).Resize(a - 1).Insert Shift:=xlDown
    Next
End Sub


şeklinde denermisiniz [ilginc]
Kullanıcı avatarı
xpeker
Siteye Alışmış
 
Kayıt: 05 Oca 2015 17:41
Meslek: memur
Yaş: 38
İleti: 130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Hücre değerine göre Satır Ekleme veya kopyalam

İleti#5)  acdenis » 16 Nis 2019 15:33

xpeker yazdı:
Kod: Tümünü seç
Sub satirEkle()
On Error Resume Next
Dim i As Integer
Dim a As Integer
    For i = Cells(Rows.Count, 2).End(3).Row To 2 Step -1
        a = Cells(i, 2).Value
        If a > 1 Then Rows(i).Offset(1).Resize(a - 1).Insert Shift:=xlDown
    Next
End Sub


şeklinde denermisiniz [ilginc]


Hata bende Row To 2 Step -1 değerini değiştirmediğim için boş hücreye geldiğinde hata veriyordu.
Teşekkürler,
Kullanıcı avatarı
acdenis
Yeni Başlamış
 
Adı Soyadı:Bayram GUL
Kayıt: 05 Eyl 2010 00:20
Konum: İstanbul
Meslek: Planlama Uzmanı
Yaş: 38
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sisli


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe