Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Mart 2006 Cuma

Column Position Of The Line In

'Module1

Option Explicit
Dim i As Single

Sub SatırınKolonlardakiPozisyonu() '[Column position of the line in]
On Error GoTo Hata
'Cells(1, "c") = Range("C1")
'Cells(1, "a") = Range("A1")
'End(4)= xlDown
'End(2)= xlRight
'End(3)= xlUp
'End(1)= xlLeft

For i = [C65536].End(3).Row To 1 Step -1
If Cells(i, "C") = Cells(i, "A") Then Rows(i).Delete
Next i
Exit Sub
Hata:
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul