DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
LastCol = Cells(ActiveCell.Row, 255).End(xlToLeft).Column
MsgBox "Satırdaki Son dolu sutun :" & LastCol
MsgBox "Satırdaki Son dolu hucre :" & Cells(ActiveCell.Row, LastCol).Address
TetxBox1.Value=Cells(ActiveCell.Row, 255).End(xlToLeft).Value