Necesito eliminar la enumeración de la columna a de la Hoja Zuschitte y de la Hoja Stecker Buchse

'Actualizar hoja Zuschnitte y Stecker Buchse
Private Sub CommandButton124_Click()
  'DECLARAR VARIABLES
  Dim pass As String
  Dim sh1 As Worksheet, sh2 As Worksheet
  Dim i As Long, n As Long
  '
  'AMBIENTE
  Application.ScreenUpdating = False
  '
  'DATOS INICIALES
  pass = "chevo"
  If Me.TextBox14.Value = "" Then
    Call MsgBox("Diese Länge würde schon berechnet", vbInformation, "nicht speichern ")
    Exit Sub
  End If
  Set sh1 = Sheets("Zuschnitte")
  Set sh2 = Sheets("Stecker Buchse")
  '
  i = 7               'fila inicial
  n = 1
  Do While sh1.Range("B" & i).Value <> ""
    n = sh1.Range("B" & i).Value + 1
    i = i + 1
  Loop
  'ACTUALIZAR hoja Zuschnitte
  sh1.Unprotect pass
  sh1.Range("B" & i).Value = n
  sh1.Range("C" & i).Value = TextBox16.Text 'VERBINDUNG
  sh1.Range("D" & i).Value = TextBox2.Text 'Querschnitt
  sh1.Range("E" & i).Value = TextBox17.Text 'LÄNGE
  sh1.Range("F" & i).Value = TextBox14.Text
  sh1.Range("G" & i).Value = TextBox23.Text 'ISOLATION
  sh1.Protect pass
  '
  i = 7               'fila inicial
  n = 1
  Do While sh2.Range("B" & i).Value <> ""
    n = sh2.Range("B" & i).Value + 1
    i = i + 1
  Loop
  sh2.Unprotect pass
  sh2.Range("B" & i).Value = n
  If TextBox16 = "ZWL" Then
    sh2.Range("C" & i).Value = ""
    sh2.Range("F" & i).Value = ""
    sh2.Range("D" & i).Value = ""
    sh2.Range("E" & i).Value = ""
  ElseIf TextBox16 = "ZWL Si" Then
    sh2.Range("C" & i).Value = ""
    sh2.Range("F" & i).Value = ""
    sh2.Range("D" & i).Value = ""
  Else: sh2.Range("C" & i).Value = TextBox16.Text 'VERBINDUNG
    sh2.Range("F" & i).Value = TextBox14.Text '
    sh2.Range("D" & i).Value = TextBox2.Text '
    sh2.Range("E" & i).Value = TextBox17.Text 'gte zahl
  End If
  'Para ordenar
  sh2.Range("C6:G37").Sort key1:=sh2.Range("C6"), order1:=xlAscending, Header:=xlYes
  sh2.Protect pass
  Call Main 'PROGRESS BAR
  Application.ScreenUpdating = True
  MsgBox "Die Daten wurden gespeichert", vbApplicationModal, ""
End Sub

Ese codigo pertenece a la hoja zuschnitte y necesito eliminar la eliminacion de la columna Aaaaaaaaaaaaaaa, debido a con la ordenacion alfabetica los numeros se desordenan y es mejor sin numeros.

1 Respuesta

Respuesta
2

Es complicado trabajar contigo, es complicado entender lo que quieres.

Me voy a arriesgar, haber si adivino lo que quieres.

Quita esta línea de la macro:

Sh1.Range("B" & i).Value = n

Si no es lo que necesitas, esperemos a que otro experto te pueda ayudar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas