uğur ılgın

Sub hesapla() For k = 1 To 10 Cells(k, 2) = Cells(k, 1) * 0.18 'A Sütunundaki verilerin %18 Aldı If Cells(k, 2) > 300 Then '300 den büyükse Cells(k, 2).Select Selection.Interior.Color = vbYellow 'O alanı seçip arkaplan rengini değiştirecek ' rgb,18880,vbrenk olabilir. End If Next k End Sub

Sub hesapla() For k = 1 To 50 Sheets.Add ' yukarıdaki 50 sayısı kadar sayfa ekler MsgBox Sheets.Count ‘Sayfa Sayısını Gösterir. Next k End Sub

Sub hesapla() For x = 1 To 10000 Cells(x, 1) = x Next x End Sub ‘1den 10000e kadar saydırıp A Sütununa yazdırır.

04.10.2011 2.ÖRNEK Sub hesapla() For x = 1 To 10 ' burada D sütunun içine A sütunun ilk harfi ve nokta sonra B sütunun birleşmiş halidir. Cells(x, 4) = Left(Cells(x, 1), 1) & "." & " " & Cells(x, 2) ' burada E sütunun içine A sütunuyla B sütunun birleştirmiştir. Cells(x, 5) = Cells(x, 1) & "  " & Cells(x, 2) Next x End Sub

04.10.2011 1.ÖRNEK Sub mesaj() 'Aşağıdaki döngüde excelldeki A1-A100 hücresine kadar Atl 11A yazma işine yarıyor For x = 1 To 100 'x birden yüze kadar olan sayıları kapsıyor. Cells(x, 1) = "Atl 11A" 'cells(x) satırları belirtiyor 'cells(1) sütunu belirtiyor Next x End Sub