DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
For Sayi = 1 To 10
Cells(Sayi + 4, 2).Value = Range("e2").Value & "x" & Sayi & " = " & Range("e2").Value * Sayi
Next
End Sub
Merhaba
Bu mudur?
Kod:Private Sub CommandButton1_Click() For Sayi = 1 To 10 Cells(Sayi + 4, 2).Value = Range("e2").Value & "x" & Sayi & " = " & Range("e2").Value * Sayi Next End Sub