Új hozzászólás Aktív témák

• #22268 Vladek83 tag

  Új Válasz 2014-07-04 09:26:29 #22268

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Vladek83

  tag

  Sziasztok!

  Kérnék egy kis segítséget, van egy macro, ami egy combobox-ba gyűjti az adatokat, viszont 2 részre szeretném osztani a combobox tartalmát. A columncount-ot hiába állítom 2-re, semmi...?

  Macro részlet (sajnos nem az én szerzeményem):

  'ha létezik akkor végignézzük a lap A-oszlopát tételszámokért
  If wsKorabbiVevo > 0 Then
  c = 0
  With Sheets(wsKorabbiVevo)
  'kikeressük az utolsó sort
  vLastRow = .Range("A" & Rows.Count).End(xlUp).Row + 1
  For i = 1 To vLastRow
  'ha a sorban ez a szöveg, akkor alatta van amit keresünk
  If .Cells(i, 1).Value = "Tétel szám" Then
  c = c + 1
  If c = 1 Then
  ReDim arrayTetelSzamok(1 To 1)
  arrayTetelSzamok(1) = CStr(.Cells(i + 1, 1).Value) & " " & CStr(.Cells(i + 3, 1).Value)
  Else
  ReDim Preserve arrayTetelSzamok(1 To c)
  arrayTetelSzamok(c) = CStr(.Cells(i + 1, 1).Value) & " " & CStr(.Cells(i + 3, 1).Value)
  End If
  End If
  Next i
  End With

Új hozzászólás Aktív témák