makro ile adet miktarlarını saydırma

[BG]

arkadaslar gerekli aciklamayi dosya ekinde yapmaya calistim , bos vaktinizde zaman ayirabilirseniz cok sevinirim, herkese tesekkurler kolay gelsin.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Sub nn()
c = 1
With Sayfa1
For i = 1 To .[a65536].End(3).Row
    ürün = .Cells(i + 1, 1)
    adet = .Cells(i + 1, 2)
    isim = .Cells(i + 1, 3)
    teln = .Cells(i + 1, 4)
        For j = 1 To adet
                c = c + 1
            With Sayfa2
                .Cells(c, 1) = ürün
                .Cells(c, 2) = 1
                .Cells(c, 3) = isim
                .Cells(c, 4) = teln
            End With
        Next
Next
End With
End Sub

 

[BG]

sayın hamitcan

zamanınızı ayırdığınız için teşekkür ederim, tam istediğim gibi olmuş kolay gelsin.

 

[muzzymania]

iyi günler belirtilen durumun tersinni yapılması için yani adetler sayfasındaki değerlerin toplam olarak diğer sayfaya yazımı nasıl yapılabilir?? teşekkür ederim şimdiden

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub nn2()
c = 1
With Sayfa2
son = .[a65536].End(3).Row
    For i = 2 To son
        If WorksheetFunction.CountIf(.Range("a" & i & ":" & "a" & son), .Cells(i, 1)) = 1 Then
            c = c + 1
            Sayfa1.Cells(c, 1) = .Cells(i, 1)
            Sayfa1.Cells(c, 2) = WorksheetFunction.SumIf(.Range("a2:" & "a" & son), .Cells(i, 1), .Range("B2:" & "B" & son))
            Sayfa1.Cells(c, 3) = .Cells(i, 3)
            Sayfa1.Cells(c, 4) = .Cells(i, 4)
        End If
    Next
End With
End Sub

 

[BG]

hocam bu kodu ben 17 sutundan olusan bir sayfa yaptigimda "For i = 1 To .[a65536].End(3).Row" satirinda hata aliyorum ne yapmam gerekir.

Kod:

Private Sub CommandButton1_Click()
c = 1
With Sayfa1
For i = 1 To .[a65536].End(3).Row
etike = .Cells(i + 1, 1)
adet = .Cells(i + 1, 2)
malzeme = .Cells(i + 1, 3)
kalinlik = .Cells(i + 1, 4)
genislik = .Cells(i + 1, 5)
uzunluk = .Cells(i + 1, 6)
agirlik = .Cells(i + 1, 7)
kalite = .Cells(i + 1, 8)
firma = .Cells(i + 1, 9)
etiket = .Cells(i + 1, 10)
sertifika = .Cells(i + 1, 11)
tarih = .Cells(i + 1, 12)
certtype = .Cells(i + 1, 13)
plakano = .Cells(i + 1, 14)
heatno = .Cells(i + 1, 15)
proje = .Cells(i + 1, 16)
certindex = .Cells(i + 1, 17)

For j = 1 To adet
c = c + 1
With Sayfa2
.Cells(c, 1) = etike
.Cells(c, 2) = adet
.Cells(c, 3) = malzeme
.Cells(c, 4) = kalinlik
.Cells(c, 5) = genislik
.Cells(c, 6) = uzunluk
.Cells(c, 7) = agirlik
.Cells(c, 8) = kalite
.Cells(c, 9) = firma
.Cells(c, 10) = etiket
.Cells(c, 11) = sertifika
.Cells(c, 12) = tarih
.Cells(c, 13) = certtype
.Cells(c, 14) = plakano
.Cells(c, 15) = heatno
.Cells(c, 16) = proje
.Cells(c, 17) = certindex

End With
Next
Next
End With
End Sub

 

[hamitcan]

Dosyanızı eklerseniz daha iyi olur. Bu şekilde bir hata mesajı almadım.

 

[BG]

hocam kodlari baska bir calisma kitabinda denedigimde oldu, bende anlamadim ama kodlar calisiyor hocam, calisma kitabinda bir problem var saniyorum,tesekkur ederim problem yok

 

[muzzymania]

4 değişkeni saydırarak toplamı yeni sayfaya yazdırma hk

arkadaslar 4 değişkenin farklı kriterlere göre toplanarak toplamlarını belirtilen şekilde yeni sayfaya yazdırılması konusunda yardımlarınızı bekliyorum açıklamalar ekte mevcuttur.

Şimdiden teşekkürler...

 

[muzzymania]

dosya ektedir