Como puedo seelccionar determinadas columnas en un Textbox para copiarlas en otra hoja..

Te anexo el código para copiar las columnas

Private Sub UserForm_Initialize()
    '
    Set h1 = Sheets("Kabel")
    Set h2 = Sheets("temp")
    h2.Cells.Clear
    cols = Array("A", "C", "E", "F", "G", "R")
    total_cols = UBound(cols) + 1
    For c = LBound(cols) To UBound(cols)
        h1.Columns(cols(c)).Copy h2.Columns(c + 1)
    Next
    h2.Cells.EntireColumn.AutoFit
    For i = 1 To total_cols
        ancho = ancho & Int(h2.Cells(1, i).Width + 3) & ";"
    Next
    uf = h2.Range("A" & Rows.Count).End(xlUp).Row
    rango = h2.Range("A2", h2.Cells(uf, total_cols)).Address
    ListBox1.ColumnWidths = ancho
    ListBox1.ColumnCount = total_cols  'Column Count Of Listbox
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = h2.Name & "!" & rango
    '
    With lblDone
        .Top = lblRemain.Top + 1
        .Left = lblRemain.Left + 1
        .Height = lblRemain.Height - 2
        .Width = 0
    End With
    lblPct.Visible = False
    OptionButton1.Value = True
End Sub

Crea una hoja llamada "temp" para copiar las columnas.

Pon las columnas que quieras copiar en el arreglo:

cols = Array("A", "C", "E", "F", "G", "R")

Sal u dos

¡Gracias! Genie

Gracias 

Eusebio

Debo borrar  mi userform  initialize y colocar zu  codigo? 

Eusebio