Otomatik Biçimlendirme Yapma İmkanı Var mı?

[bican23]

Herkese merhabalar,

Ekteki dosyada sayfa2' de bulunan sütunlarda yazan KLXXXX ve malzeme numaralarını otomatik olarak sayfa1' de ki haline getirebileceğimiz bir formül ya da benzeri bir yöntem var mıdır acaba tavsiye edebileceğiniz?

 

[fireman64]

Aşağıdaki kodu bir butona bağlayıp deneyin.

Private Sub Ciz()
[A1].Select
  If IsEmpty(ActiveCell) Then Exit Sub
 
    Do Until IsEmpty(ActiveCell)
      ActiveCell.Value = ActiveCell.Value & Chr(10) & ActiveCell.Offset(0, 1)
With ActiveCell 
               .Borders.LineStyle = xlContinuous
               .HorizontalAlignment = xlCenter
               .VerticalAlignment = xlCenter
               .ColumnWidth = 47.83
               .RowHeight = 69.75
End With
With Selection.Font
        .Name = "Arial"
        .Size = 22
        .Bold = True
    End With
ActiveCell.Offset(0, 1) = ""
        ActiveCell.Offset(1, 0).Select
    Loop
  MsgBox "İşlem Tamamdır"
End Sub