dosya ektedir.
ne yapıla bileceğini anlattım excel dosyasında.
-
- Destek
-
Özel Arama
![]() |
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
Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot], koc_10 ve 2 misafir