Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 15 Eylül 2010, 20:46:28

Başlık: Bir üstteki satırın aynısını boş satır ekleyerek alması
Gönderen: yesilyurtlu - 15 Eylül 2010, 20:46:28

Evren Üstadım;

Elimde 9 sütunlu bir liste var. Bu liste günlük olarak satır eklenip silinmekte.
Mümkünse ekle makrosu ile boş bir satır açıp üstteki satırda ki var olan bilgileri formülleri ile birlikte açılan boş satıra ekleyebilir miyiz üstad?

Teşekkür Ederim...

Başlık: Ynt: Bir üstteki satırın aynısını boş satır ekleyerek alması
Gönderen: ogulcan92 - 16 Eylül 2010, 16:47:34

Sn:yesilyurtlu
Aşağıdaki örneği inceleyip kendinize göre uyarlayınız.
5.Satırdan itibaren yeni satır oluşturup satırda bulunan formül veya bilgileri oluşturulan bir alt satıra kopyalar.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Bir üstteki satırın aynısını boş satır ekleyerek alması
Gönderen: yesilyurtlu - 16 Eylül 2010, 21:16:31

Alıntı yapılan: ogulcan92 - 16 Eylül 2010, 16:47:34

Sn:yesilyurtlu
Aşağıdaki örneği inceleyip kendinize göre uyarlayınız.
5.Satırdan itibaren yeni satır oluşturup satırda bulunan formül veya bilgileri oluşturulan bir alt satıra kopyalar.

Sayın Oğulcan & Olcaytuğ

İstediğim gibi olmuş ama bir hata var. Bir üstteki satırın aynısını alacak. Ama sizinkin de en başta ki satır ne ise onu alıyor. Düzeltebilme imkanı varmıdır acaba.
teşekkür ederim.

Özel değilse eğer "Oğulcan Excel Web Sitesi" programı da sizin değil mi ? Yoksa isim benzerliği mi?

Başlık: Ynt: Bir üstteki satırın aynısını boş satır ekleyerek alması
Gönderen: ogulcan92 - 17 Eylül 2010, 12:21:21

Sn:yesilyurtlu
Aşağıdaki kodları sayfanın kod bölümüne yapıştırınız.A sütününda veri girilince kopyalam işlemi yapılır.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Target = "x" Or Target = "y" Then Exit Sub
    If Target <> "" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Rows(Target.Row + 1).FormulaR1C1 = Rows(Target.Row).FormulaR1C1
    End If
End Sub
Evet Oğulcan Excel Web Sitesi Lokal olarak hazırlanmıştır.Vakit sorunu olduğu için büyük bölümünü değiştirdim ama henüz günçelleyemedim.