DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Sheets("sayfa2").Range("a1") = TextBox1.Value
End Sub
Private Sub CommandButton1_Click()
Sheets("Sayfa2").Range("A2").Value = TextBox1.Value
End Sub
Set s1 = Workbooks("data1.xls").Sheets("personeller")