Makro ile sütun başlarındaki ismi değiştirme

[Mesafe]

Aynı isimle gelen iki sütun başlığı isminden altında rakam yazan başlığın adını değiştirmek istiyorum. İsimler hem aynı gelsede sütunların yerlerinde değişiklik olabiliyor.

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sütun_başı()
Dim STN As Long
With WorksheetFunction
For STN = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(1, STN) = "Volume" Then
If .IsNumber(Cells(2, STN)) = True Then
Cells(1, STN) = "Volume No"
End If: End If: Next: End With
End Sub

 

[Mesafe]

Cok tesekkur ederim. Sagolun.
Elinize saglik

 

[asi_kral]

Cok tesekkur ederim. Sagolun.
Elinize saglik

Kolay Gelsin.