Bir satırın son dolu sütununu bulma?

[kiziloguz]

Arkadaşlar,
Bir vardiya listesi çalışması için 5nci satırın en sağ dolu sütunun bulmak istiyorum. Yani yapacağım şey:

1- 5.satırın son dolu sütununu bul. (son_sutun değeri ver)
2- O sütundan 2 önceki sütuna, yeni bir sütun ekle (son_sutun - 2)
3- O sütundan 3 önceki sütunu kopyala ve yeni eklediğin sütuna ekle(son_sutun-3.copy)-(son_sutun-2.paste)

sonra tekrar bastığımda yeni eklediğim sütunun sağ tarafında aynı işlemi yapması.

Aynı işlemi sütun sil komutuyla da yapacağım ama onun için üstteki kodların düzenlenmesi yeterli benim için.

Yardımlarınızı ya da fikirleriniz benim için önemli

Teşekkürler

 

[halit3]

Beşinci satırın son dolu sütunu

Cells(5, Columns.Count).End(xlToLeft).Column

 

[kiziloguz]

Halit Bey,

Öncelikle bu hızlı cevabınız için teşekkürler, ancak bu benim için yeterli değil. Yanıtınız yukarıdaki maddelerden hiçbirini izahı olmadım maalesef.

 

[halit3]

Halit Bey,

Öncelikle bu hızlı cevabınız için teşekkürler, ancak bu benim için yeterli değil. Yanıtınız yukarıdaki maddelerden hiçbirini izahı olmadım maalesef.

Bu olurmu ?

Sub dene()
sat = Cells(5, Columns.Count).End(xlToLeft).Column - 2
[COLOR=red]Columns(sat).Insert Shift:=xlToRight
[/COLOR]Cells(5, sat - 1).Copy
Cells(5, sat).PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End Sub

 

[halit3]

Yukarıdaki mesajdaki koda kırmızı bölümü ekledim.

[COLOR=red]Columns(sat).Insert Shift:=xlToRight[/COLOR]

 

[kiziloguz]

Teşekkürler Halit Hocam,

Vermiş olduğunuz kod tam istediğim gibi oldu.

İyi Geceler,

 

[halit3]

Teşekkürler Halit Hocam,

Vermiş olduğunuz kod tam istediğim gibi oldu.

İyi Geceler,

İyi çalışmalar