Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   TEST Alanı (http://www.excel.web.tr/forumdisplay.php?f=56)
-   -   TEST Dosya Yükleme (http://www.excel.web.tr/showthread.php?t=166892)

aytekin44 24-09-2017 11:15

TEST Dosya Yükleme
 
1 Eklenti(ler)
Dosya Yükleme Denemesi

aytekin44 30-09-2017 18:26

1 Eklenti(ler)
Deneme 2
....

aytekin44 30-09-2017 22:44

Kod:

Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""


aytekin44 31-10-2017 06:54

1 Eklenti(ler)
Dosya ekleme denemesi

htsumer 02-11-2017 08:13

dosya ekleme
 
1 Eklenti(ler)
test dosya upload


Saat 16:27

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.