iframe src="http://www.maraton.com.tr/content/468x60_maraton.php" mce_src="http://www.maraton.com.tr/content/468x60_maraton.php" name="maraton" id="maraton" width="468" height="78" marginwidth="0" marginheight="0" hspace="0" vspace="0" scrolling="no" frameborder="0"> BESIKTAS HABERLERI <iframe src="http://www.maraton.com.tr/content/468x60_bjk.php" mce_src="http://www.maraton.com.tr/content/468x60_bjk.php" name="maraton" id="maraton" width="468" height="78" marginwidth="0" marginheight="0" hspace="0" vspace="0" scrolling="no" frameborder="0"></iframe></body></html> FENERBAHCE HABERLERI <CENTER><textarea rows="3" cols="30"><iframe src="http://www.maraton.com.tr/content/468x60_fb.php" mce_src="http://www.maraton.com.tr/content/468x60_fb.php" name="maraton" id="maraton" width="468" height="78" marginwidth="0" marginheight="0" hspace="0" vspace="0" scrolling="no" frameborder="0"></iframe></body></html> GALATASARAY HABERLERI <CENTER><textarea rows="3" cols="30"><iframe src="http://www.maraton.com.tr/content/468x60_gs.php" mce_src="http://www.maraton.com.tr/content/468x60_gs.php" name="maraton" id="maraton" width="468" height="78" marginwidth="0" marginheight="0" hspace="0" vspace="0" scrolling="no" frameborder="0"></iframe></body></html> SITENE CANLI MAC SONUCLARI EKLE <CENTER><textarea rows="3" cols="30"><table border="0" cellspacing="0" cellpadding="0" align="center"> <tr><td><iframe src="http://www.iddaa-tahmin.com/kayan-canli-mac-sonuclari2.php" mce_src="http://www.iddaa-tahmin.com/kayan-canli-mac-sonuclari2.php" width=275px height=250px frameborder=0 scrolling=NO noresize name="I1"><a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">iddaa</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">iddia</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">iddaa sonuçları</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">maç sonuçları</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">iddaa maç sonuçları</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">canlı maç sonuçları</a> | <a href="http://www.iddaa-tahmin.com/forum" _fcksavedurl="http://www.iddaa-tahmin.com/forum" mce_href="http://www.iddaa-tahmin.com/forum" _fcksavedurl="http://www.iddaa-tahmin.com/forum">iddaa</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">iddaa bülteni</a> | <a href="http://www.iddaabulteni.net" _fcksavedurl="http://www.iddaabulteni.net" mce_href="http://www.iddaabulteni.net" _fcksavedurl="http://www.iddaabulteni.net">iddaa</a> | <a href="http://www.iddaaevi.com" _fcksavedurl="http://www.iddaaevi.com" mce_href="http://www.iddaaevi.com" _fcksavedurl="http://www.iddaaevi.com">iddaa</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">canlı maç sonuçları</a> | <a href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com" mce_href="http://www.iddaa-tahmin.com" _fcksavedurl="http://www.iddaa-tahmin.com">canlı iddaa sonuçları</a></IFRAME></td></tr></table> </body></html></body></html></body></html> - -Private Sub CommandButton2_Click() Set SA = Worksheets("ISCI_DATA") SA.Unprotect "1994" Application.ScreenUpdating = True Dim i As Integer If TextBox2.Value = "" Then MsgBox "Lütfen Personel Bilgilerini Giriniz.", , "Kayıt Hatası" Exit Sub End If '.......................................................... 'TextBox kutularındaki verileri hücrelere yazdırır. ActiveCell.Offset(0, 0).Value = TextBox6.Value ActiveCell.Offset(0, 1).Value = TextBox1.Value ActiveCell.Offset(0, 2).Value = TextBox2.Value ActiveCell.Offset(0, 3).Value = TextBox3.Value ActiveCell.Offset(0, 4).Value = ComboBox1.Value ActiveCell.Offset(0, 5).Value = ComboBox2.Value MsgBox "Kayıt Tamamlandı" Set SA = Worksheets("ISCI_DATA") SA.Protect "1994" Application.ScreenUpdating = True Unload Me Sheets("ANA").Select Exit Sub End Sub