mustafayalcin.com

Excel – Fontlara göre verilerin ayrılması

by on Nis.03, 2008, under Programlar

Sub merve()
Dim x, y
Dim w, z

w = 1
z = 1

For i = 1 To 15000
  x = “A” & i
  y = “T” & i
  Sheet1.Range(y).Value = Sheet1.Range(x).Font.Size
 
  If Sheet1.Range(x).Font.Size = 8 Then
    For j = 1 To 20
        Sheet2.Cells(w, j) = Sheet1.Cells(i, j)
    Next
    w = w + 1
  End If
 
  If Sheet1.Range(x).Font.Size = 10 Then
    For j = 1 To 20
        Sheet3.Cells(z, j) = Sheet1.Cells(i, j)
    Next
    z = z + 1
  End If
 
 
Next

End Sub

No comments for this entry yet...

Comments are closed.

Looking for something?

Use the form below to search the site:

Still not finding what you're looking for? Drop a comment on a post or contact us so we can take care of it!

Visit our friends!

A few highly recommended friends...