[SBAG1987]

dosya ektedir.
ne yapıla bileceğini anlattım excel dosyasında.

[Enes Recep BAĞ]

Merhaba,
Öncelikle ne yaptırmak istediğinizi excele değil de, bu alana yazın ki, eki indirmeden yapıp yapamayacağımıza karar verelim ve vakit harcamayalım.

Kod: Tümünü seç

Private Sub CommandButton2_Click()
son = Sayfa4.Range("A65536").End(3).Row + 1
sıra = Sayfa4.Range("A65536").End(3).Row
If Range("D2") = Empty Then MsgBox "Lütfen barkod okutunuz", 64, "EVN": Exit Sub
With Sayfa4
    .Cells(son, 1) = sıra
    .Cells(son, 2) = Range("D6")
    .Cells(son, 3) = Range("D8")
    .Cells(son, 4) = Range("D10")
    .Cells(son, 5) = Range("D12")
    .Cells(son, 6) = Range("D14")
    .Cells(son, 7) = Range("D16")
End With
End Sub

[SBAG1987]

enes bey teşekkür ederim. çalışıyor. excele yazdım çunku eksık veya tam anlatamam diye oraya yazmısdım. Sonrası için dikkat ederım.

[Enes Recep BAĞ]

Rica ederim.