Satır Ekleme..

[dartanyan_]

Arkadaşlar günaydın..

Sorum; ekte gönderdiğim çalışma, "ithalat giriş" sayfasına veri giriyorum. Ordaki logoya basıyorum o ilgili sayfalara, yerlere bu veriyi atıyo.
Benim istediğim veriyi atarken kendisi satır eklesin. Ben her seferinde satır eklemek zorunda kalmayayım. Böyle bir makro var mıdır?
:?
Teşekkürler, iyi çalışmalar..

 

[taner3106]

logoyu bulamadigim icin asagidaki gibi bir cözüm sunabilirim

x: Satir numarasi olmak üzere
Rows("X:X").Insert Shift:=xlDown

x satirina satir ekler. kolay gelsin.

 

[dartanyan_]

Logo, ithalat giriş sayfasındaki sarar yazısı.
Teşekkürler, çok özür dilerim, bu yazdığınızı, makroların olduğu her modüle mi yazıcm?
Ve şöyle bir istekte daha bulunabilir miyim affınıza sığınarak, bilgileri ilgili olduğu yerlere gönderiyo. Örneğin, astar yazmışsam astar sayfasına atıyo. Yünlü kumaş yazmışsam o sayfaya bilgi atıyo.
Bu satır ekleme olayı da ilgili sayfaya bilgiyi gönderirken satırı da eklesin. Yani veri göndermediği diğer sayfalara boşuna satır eklemesin..
:dua:
Mümkün müdür acaba?

 

[Valuer]

Selection.EntireRow.Insert

Bu kod sana satır eklettirirde. Senin yaptığın şekilde makro eklemeye devam edersen, bir takım problemler yaşamaya hazır ol.

 

[Ali]

Örneğin Astar sayfanızdaki modül için

Sub Picture1_Click()
Dim k
k = 8
For i = 9 To 1000
If Sheet1.Cells(i - 5, 9) = "Astar" Then
k = k + 1
Sheet16.Cells(k, 1) = Sheet1.Cells(i - 5, 8)
Sheet16.Cells(k, 2) = Sheet1.Cells(i - 5, 9)
Sheet16.Cells(k, 3) = Sheet1.Cells(i - 5, 10)
Sheet16.Cells(k, 4) = Sheet1.Cells(i - 5, 11)
Sheet16.Cells(k, 5) = Sheet1.Cells(i - 5, 12)
Sheet16.Cells(k, 6) = Sheet1.Cells(i - 5, 13)
Sheet16.Cells(k, 7) = Sheet1.Cells(i - 5, 17)
Sheet16.Cells(k, 8) = Sheet1.Cells(i - 5, 5)
Sheet16.Cells(k, 9) = Sheet1.Cells(i - 5, 6)
Sheet16.Cells(k, 10) = Sheet1.Cells(i - 5, 2)
Sheet16.Cells(k, 11) = Sheet1.Cells(i - 5, 3)
Sheet16.Cells(k, 12) = Sheet1.Cells(i - 5, 4)
End If
Next i
Sheet16.Cells.Rows(k + 1).Insert shift:=xlDown
End Sub


Kırmızı satırlı kısmı ekleyin

 

[dartanyan_]

Sn fructose, sn valuer teşekkür ederim oldu. Çok da güzel oldu, saolun. Ellerinize sağlık.
:hihoho:
sn valuer, ne gibi sorunlarla karşılaşabilirim?
Ve bu sorunların çözümleri olacak mı?
:agla:

Yine de teşekkürler.