DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
'Userform daki verileri excel sayfasına yazar
Dim t As Range
If ("J1") = "" Then
MsgBox "FİRMA ADI BOÃ BIRAKILAMAZ..."
Exit Sub
End If
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000]) + 1
Worksheets("tablo").Cells(dolusay, "a").Value = dolusay - 1
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000])
Worksheets("tablo").Cells(dolusay, "b").Value = Range("B7").Value
Worksheets("tablo").Cells(dolusay, "c").Value = Range("C7").Value
Worksheets("tablo").Cells(dolusay, "d").Value = Range("D7").Value
Worksheets("tablo").Cells(dolusay, "e").Value = Range("E7").Value
Worksheets("tablo").Cells(dolusay, "f").Value = Range("F7").Value
Worksheets("tablo").Cells(dolusay, "g").Value = Range("G7").Value
Worksheets("tablo").Cells(dolusay, "h").Value = Range("H7").Value
Worksheets("tablo").Cells(dolusay, "i").Value = Range("I7").Value
Worksheets("tablo").Cells(dolusay, "j").Value = Range("J7").Value
Worksheets("tablo").Cells(dolusay, "k").Value = Range("K7").Value
Worksheets("tablo").Cells(dolusay, "l").Value = Range("L7").Value
Range("D2:M2").Select
Selection.Delete Shift:=xlUp
Range("B105:L105").Copy
Range("B106").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
End Sub
Range("D2:M2").Select
Selection.Delete Shift:=xlUp
Range("B105:L105").Copy
Range("B106").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Dersanede Mevcuttur.[b' Alıntı:umutsancar[/b]]
Sevgili sakiogluo,
Konuyla alakası olmadığı için çok özür dilerim. ÜRETİM 1 adlı sheet'teki açılan kutuları nasıl yaptınız, açıklar mısınız?