id si belli satırların altına yeni satır açıp kayıt yapma hk.

[ozdogan]

Kıymetli Üstatlar Değerli Arkadaşlar.
Bir alışveriş sitem var. İçerisinde 900 Küsür Ürün Var.
Excel İle Export İmport Yapabiliyorum.

Yaklaşık 700 Küsür Ürünüm İçin Sonradan Ek Seçenek Eklemem Gerekti. Bunu Elle Her Ürüne Tek Tek Girmem lazım. Lakin Excel İle Ürünlerin Çıktısını Alıp Geri yükleme Yapabiliyorum.

Excel Tablomda Ürünler ve Seçenek İd leri Mevcut. Ekte Ürün Tablom Var.

id 56 yı elle ben girdim.

Örneğin ProductOptionValues sayfamda id 57 nin bittiği satırın altına 4 tane boş satır açıp bu satıra şu yazılacak
--------------------------------------------------------------
19 122 9999 true 0,00 + 0 + 0,00 +
19 123 9999 true 0,00 + 0 + 0,00 +
19 124 9999 true 7,87 + 0 + 0,00 +
19 125 9999 true 9,26 + 0 + 0,00 +
19 126 9999 true 9,26 + 0 + 0,00 +
--------------------------------------------------------------

Bana şimdi öyle bir makro lazımki
bu makroya örneğin id 57 ile id 70 arasındaki tüm satırları bul bittiği yerden başlayarak şu yukarıda verdiğim satırları ekle demem lazım. EK Olarak örneğin id 56-57-60-76-77-80-100 nolu id leri bul bittiği yerden başla ve ykarıdaki tabloyu ekle demem lazım.

Bu konuda bana yardımcı olursanız çok sevinirim. Aksi halde tek tek tek elle girmem gerekecek bunları.

örnek dosya:http://dosya.co/e0nzxkcg36yt/products-2016-03-09_(2).xlsx.html

 

[Emir Hüseyin Çoban]

. . .

Destek sayfasında A1 ve B1 hücreleri başlangıç bitiş ID numalarını gir.
Tabloya yazılacak bilgileri A4 hücresinden başlayarak yaz.
Daha sonra kodları çalıştır.

http://dosya.co/yvy7smcriory/products-2016-03-09_(2)_01.rar.html

. . .

 

[veyselemre]

Sub test()
    Set a = [b8:k12]
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Rows(i).Select
        If Cells(i, 1) <> al And Cells(i, 1) > 56 And Cells(i, 1) < 71 Then
            Rows(i + 1).Resize(5).Insert
            a.Copy Cells(i + 1, 2)
            Cells(i, 1).Resize(6).FillDown
            al = Cells(i, 1).Value
        End If
    Next i
End Sub

 

[ozdogan]

Emir Bey Öncelikle Teşekkür Ederim.
A1 ve B1 Hücrelerine Girdiğim 3 Haneli İd lerde Hata ALıyorum "type Mismatch" Hatası Veriyor.

1 den 99 a kada rolan id lerde sıkıntısız çalıştım. Ama 100 lere Geçinde Hata Vermeye Başladı.

 

[Emir Hüseyin Çoban]

. . .

Kodlamanın mantığı şu şekilde
100-105 yazdığınızda
101-102-103-104-105 diye ardışık olarak devam eder.
Sizin tablonuzda 103 ID yoksa hata verir.

Bunı If şartı ekleyerek aşabiliriz veya sizin tabloyu yaparken
101-102 ve 104-105 olarak parça parça girmeniz gerekir.

. . .

 

[ozdogan]

Çok Özürdiliyorum. Kodda Sıkıntı Yok. Arada Olmayan İd Varmış O sebeple Hata Almışım. Sorunsuz Bir Şekilde Çalışıyor. Elleriniz Dert Görmesin Çok Çok Sağolun Ciddi Bir Vakit Kaybı Olacak İşi Sayenizde yarım saate Bitireceğim.

Ayrıca Veysel Emre Beyede Çok Teşekkür Ediyorum İlgisinden Dolayı.