DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Burda bir anlaşın. Satırmı sütunmu.Ben kestiği satırı silmesini, ve yapıştırırken yeni sürun ekleyerek yapıştırmasını istiyorum.
Private Sub CommandButton1_Click()
Columns("D:D").Select
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub
Sub Enuygun()Bir de sayfadaki sütunları en uygun genişliğe getirmenin makrosu var mı?