Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Nisan 2005 Cuma

Target Column Upside Down When Data Transpose




'Module1

Option Explicit
Dim Adet As Double
Dim Kolon1 As Integer, Kolon2 As Integer
Dim Satır1 As Range, Satır2 As Range

Sub KolonaTersÇevirerekTaşı()
On Error Resume Next
Kolon1 = 2: Kolon2 = 3
Do
Set Satır1 = Cells(Rows.Count, Kolon1).End(xlUp)
Set Satır2 = Cells(Rows.Count, Kolon2).End(xlUp)
Satır1.Copy Satır2.Offset(1, 0)
Satır1.ClearContents
Adet = Cells(Rows.Count, Kolon1).End(xlUp).Row
Loop While (Adet > 1)
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