Resimli stok listesini düzenleme

[Grimm80]

Merhabalar

Sayfa1 de A2 sutununda resim bulunan B2 sutununda Ürün Kodu bulunan ve C2 Sutununda ürün adı bulunan tablom var ? bu tablo bazen 100 satır bazen de 150 satır oluyor. Benim istediğim Sayfa1 deki bu listeyi baz alarak sayfa2 ye Yan yana yazması fakat A2 ye resim A3 e kod A4 Ürün adı iki boşluk verip yeniden D2 ye resim D3 e kod D4 ürün adı yeniden 2 boşluk G2 ye resim G3 e kod G4 ürün adı

3 satır ürünü yan yana yazacak sonraki satırları ise onların altına yazacak A6 resim A7 kod A8 ürün adı D6 resim D7 kod D8 ürün adı gibi bu şekilde bir makro var mıdır.

sayfa1 deki tablom hazır var sayfa2 deki tabloyu nasıl yaparım tşk.ler


Örnek Tablom aşağıdaki gibidir. Ürün resimleri C resimlerde Ürün kodları ile aynıdır. Tşk.ler
http://dosya.web.tr/OlagBL

 

[PLİNT]

Merhaba
Aşağıdaki kodları deneyin;

[SIZE="2"]Sub yeni_tablo()
Dim s1, s2 As Worksheet
Dim b, c, d As Integer
Dim x As Shape
Set s1 = Sheets("[COLOR="Blue"]Sayfa1[/COLOR]") 'resimlerin bulunduğu sayfa adı
Set s2 = Sheets("[COLOR="Blue"]Sayfa2[/COLOR]") 'resimlerin sıralanacağı sayfa adı

b = 1: c = 1
With s2
.Activate
.Cells.ClearContents
.DrawingObjects.Delete
End With
s2.Range("A:A,C:C,E:E").ColumnWidth = 30.14
For Each x In s1.Shapes
If Not Intersect(x.TopLeftCell, s1.Range("A2:A" & Cells(Rows.Count, 2).End(3).Row)) Is Nothing Then
s2.Rows(b).RowHeight = 180
x.Copy
s2.Cells(b, c).PasteSpecial
With Selection.ShapeRange
.IncrementLeft 33.75
.IncrementTop 40.5
End With
For d = 1 To 2
s2.Cells(b + d, c) = s1.Cells(x.TopLeftCell.Row, x.TopLeftCell.Column + d)
s2.Cells(b + d, c).HorizontalAlignment = xlCenter
Next
 c = c + 2
If c = 7 Then
c = 1
b = b + 4
End If: End If
Next x
End Sub [/SIZE]

 

[Grimm80]

Çok teşekkür ederim sn PLİNT fakat sorguyu çalıştırdığım zaman sayfa2 ye sadece 1 tane ürün getiriyor sayfa1 deki ürün sayısı kadar yapmak için nasıl bir döngü olması lazım çok tşk. ederim ilginizden dolayı

 

[PLİNT]

Çok teşekkür ederim sn PLİNT fakat sorguyu çalıştırdığım zaman sayfa2 ye sadece 1 tane ürün getiriyor sayfa1 deki ürün sayısı kadar yapmak için nasıl bir döngü olması lazım çok tşk. ederim ilginizden dolayı

Merhaba
Yukarıda eklediğiniz örnek dosya üzerindeki sonucu ek dosyada görebilirsiniz "A" sütununda bulunan altı resmide aktarıyor, asıl dosyanızda düzen değişik ise aynı düzende bir örnek dosya eklerseniz üzerinde uygulamaya çalışırız.
http://www.dosya.tc/server8/ykjucw/Ornek.zip.html

 

[Grimm80]

Çok Tşk ederim. İlginize yeniden sağolun..