Etiket Düzenlemesi

[ismailayan]

Herkese ünaydın arkadaşlar...

Bu site sayesinde programıma yeni bir rapor düzenledim.

Ama aynı Raporu İkinci programda düzenlemek istiyorum...

Uğraştım Ama Beceremedim...

Sizden bu konudada yardım talep ediyorum...

Ekteki dosyayada Sayfa bir deki düğmeye basıldığında Sayfa ikideki gibi şekil almasını istiyorum ve denk gelen hücrelere doldurmak. VBA kısmında gerekli düzenlemeyi yapamadım

ilk kullandığım kısım deneme sayfasında
ben Sayfa2 'yi düzenlemek istiyorum

Bana yardımcı olurmusunuz?

herkese iyi günler

 

[ismailayan]

arkadaşlar...
bu konuda benim için çok önemli....


konuyla ilgili arkadaşların bana yardımcı olmasını talep ediyorum...

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodları butonunuza bağlayınız.

Sub Etiket_Olustur()
Dim sh As Worksheet
Dim i%, y%, x%
Set sh = Sheets("Sayfa2")
sh.Cells.ClearContents
y = 1
For i = 2 To Cells(65536, 2).End(xlUp).Row
    x = IIf(i Mod 2 = 0, 1, 3)
    With sh
        .Cells(y, x) = Cells(i, 2)
        .Cells(y + 1, x) = Cells(i, 3)
        .Cells(y + 2, x) = "Renk : " & Cells(i, 4)
        .Cells(y + 3, x) = "Size : " & Cells(i, 5)
        .Cells(y + 4, x) = "Fiyat : " & Cells(i, 7)
        .Cells(y + 5, x) = "'" & Cells(i, 6)
    
    End With
    If x = 3 Then: y = y + 7
Next i
Set sh = Nothing
End Sub

 

[ismailayan]

ilginiz için çok teşekürler ferhat bey!....


ufak bir problem daha var... Aslında bu problem benden kaynaklanıyor....

dosyayı tekrar ekte gönderiyorum en son sayfada olması gerektirdiği gibi olması gerekiyor...

yardımını bekliyorum....

 

[ismailayan]

arkadaşlar bu konu benim için çok önemli...
özellikle ferhat arkadaşım...

normal sticker sayfasına yazıalacak şekilde olması gerekiyor...

acil cevabınızı beklemekteyim....

 

[Ferhat Pazarçevirdi]

dosyayı tekrar ekte gönderiyorum en son sayfada olması gerektirdiği gibi olması gerekiyor

Ben anlamadım. Son sayfadan kastınız Sayfa2(2) adlı sayfa mı?

Eğer bu sayfa ise, Model adından başka birşey yazmıyor ki?

 

[ismailayan]

ferhat bey...

Sayfa2(2) kısmındaki olması gereken format

sayfa 2 deki formatında aynı şekilde doldurulması gerekiyor

dosyayı tekrar gönderiyorum.

 

[ismailayan]

ferhat bey...


yardımınızı bekliyorum....


dediğim gibi bu konu çok önemli.....

bir el atarsanız.

 

[Ferhat Pazarçevirdi]

Yani her yere "Model Adı: 45150041166" mi yazdıracağız?

 

[ismailayan]

hayır tekrar excel sayfasını son kez düzenledim.

ekte gönderiyorum
Sayfa2(2) deki gibi olması gerekiyor
ama aynı format yazılımını Sayfa(2) sayfasına yapması gerekiyor.Sayfa2(2) örnek olması için düzenlemiştim.



yardımınızı bekliyorum Ferhat bey

 

[ismailayan]

ve düğmeye basıldıktan sonra Sayfa1 deki veriye göre Sayfa2 ye atıp yazdırması gerekiyor.....


mesela Sayfa2 hücre yapsı 10 sayfaya göre tasarlandı ama sayfa1 de 2 sayfalık etiket dökümü var...
düğmeye basıldıktan sonra 10 sayfa değilde 2 sayfa stikır dökümü almam gerekiyor....

 

[Ferhat Pazarçevirdi]

O zaman; İnşallah aşağıdaki gibi birşeydir

Sub Etiket_Olustur()
Dim sh As Worksheet
Dim i%, y%, x%
Set sh = Sheets("Sayfa2")
sh.Cells.ClearContents
y = 1
For i = 2 To Cells(65536, 2).End(xlUp).Row
    x = IIf(i Mod 2 = 0, 1, 3)
    With sh
        .Cells(y, x) = "Stok Adı : " & Cells(i, 2)
        .Cells(y + 1, x) = "Model Adı : " & Cells(i, 3)
        .Cells(y + 2, x) = "Renk : " & Cells(i, 4)
        .Cells(y + 3, x) = "Size : " & Cells(i, 5)
        .Cells(y + 4, x) = "Fiyat : " & Cells(i, 7)
        .Cells(y + 5, x) = Cells(i, 6)
        If x = 1 Then
            .Cells(y + 6, x).Formula = "=BAR128B(A" & y + 5 & ")"
        Else
            .Cells(y + 6, x).Formula = "=BAR128B(C" & y + 5 & ")"
        End If
    End With
    If x = 3 Then: y = y + 8
Next i
Set sh = Nothing
End Sub

 

[ismailayan]

çok teşekürler yardımınız için...