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

• #1159 PetX aktív tag martonx #1154

  Új Válasz 2010-02-17 07:45:26 #1159

  Ú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

  

  PetX

  aktív tag

  válasz martonx #1154 üzenetére

  Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.

  Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.

  Ehhez a részhez kértem a segítséget:
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR

  Sub CSILLAG()
  Dim CS_SOR As Integer
  Dim OSZLOP As Integer
  Dim CS_OSZLOP As Integer
  Dim cella As Range
  Dim cim_1 As String
  Dim cim_2 As String
  Dim keres As String
  Dim INPUT_STR As String
  Dim SPLITTER() As String
  Dim xDB As Integer
  Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
  Dim MYRANGE As Range 'file-ok megszámlálásához
  Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
  Dim xSOR As Integer
  Dim xREG As String
  Dim xSTR As String
  
  
  'MsgBox ("csillag")
  
  Worksheets.Add().Name = "SZUMMA"
  keres = "$$$"
  Worksheets("Szamla").Select
  OSZLOP = 38
  
  ELORE:
  ' MENNYISÉG+TOTAL
  
  For i = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row
  
  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")
  
  For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
  SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  Else
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  SPLITTER(xDB) = "+" + SPLITTER(xDB)
  End If
  xSTR = xSTR + SPLITTER(xDB)
  
  Next xDB
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
  xSTR = ""
  Wend
  Else
  End If
  
  OSZLOP = OSZLOP + 7
  Next i
  
  If OSZLOP = 150 Then
  OSZLOP = 42
  GoTo ELORE
  Else
  If OSZLOP = 154 Then
  OSZLOP = 43
  Else
  End If
  End If
  
  'EGYSÉGÁR
  For j = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row
  
  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")
  ' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  'Sheets("SZUMMA").Select
  xDB = 0
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
  ' Next xDB
  Wend
  Else
  End If
  
  OSZLOP = OSZLOP + 7
  Next j
  MsgBox ("kész")
  End Sub

• #1158 PetX aktív tag martonx #1154

  Új Válasz 2010-02-17 07:45:15 #1158

  Ú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

  

  PetX

  aktív tag

  válasz martonx #1154 üzenetére

  Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.

  Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.

  Ehhez a részhez kértem a segítséget:

  Sub CSILLAG()
  Dim CS_SOR As Integer
  Dim OSZLOP As Integer
  Dim CS_OSZLOP As Integer
  Dim cella As Range
  Dim cim_1 As String
  Dim cim_2 As String
  Dim keres As String
  Dim INPUT_STR As String
  Dim SPLITTER() As String
  Dim xDB As Integer
  Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
  Dim MYRANGE As Range 'file-ok megszámlálásához
  Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
  Dim xSOR As Integer
  Dim xREG As String
  Dim xSTR As String

  'MsgBox ("csillag")

  Worksheets.Add().Name = "SZUMMA"
  keres = "$$$"
  Worksheets("Szamla").Select
  OSZLOP = 38

  ELORE:
  ' MENNYISÉG+TOTAL

  For i = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row

  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")

  For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
  SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  Else
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  SPLITTER(xDB) = "+" + SPLITTER(xDB)
  End If
  xSTR = xSTR + SPLITTER(xDB)

  Next xDB
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
  xSTR = ""
  Wend
  Else
  End If

  OSZLOP = OSZLOP + 7
  Next i

  If OSZLOP = 150 Then
  OSZLOP = 42
  GoTo ELORE
  Else
  If OSZLOP = 154 Then
  OSZLOP = 43
  Else
  End If
  End If

  'EGYSÉGÁR
  For j = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row

  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")
  ' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  'Sheets("SZUMMA").Select
  xDB = 0
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
  ' Next xDB
  Wend
  Else
  End If

  OSZLOP = OSZLOP + 7
  Next j
  MsgBox ("kész")
  End Sub

• #1157 PetX aktív tag martonx #1154

  Új Válasz 2010-02-17 07:44:58 #1157

  Ú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

  

  PetX

  aktív tag

  válasz martonx #1154 üzenetére

  Már elnézést, de ha neked ez banális probléma akkor sajnálom, nekem nem, ezért fordultam segítségért.

  Nem vagyok programozó, kényszerből kezdtem el írni az egészet, mert szükséges ahhoz amit csinálok.

  Ehhez a részhez kértem a segítséget:

  Sub CSILLAG()
  Dim CS_SOR As Integer
  Dim OSZLOP As Integer
  Dim CS_OSZLOP As Integer
  Dim cella As Range
  Dim cim_1 As String
  Dim cim_2 As String
  Dim keres As String
  Dim INPUT_STR As String
  Dim SPLITTER() As String
  Dim xDB As Integer
  Dim COUNTNONBLANK As Integer 'file-ok megszámlálásához
  Dim MYRANGE As Range 'file-ok megszámlálásához
  Dim xSZAMOL As Integer 'az .xml file-ok db számát adja vissza
  Dim xSOR As Integer
  Dim xREG As String
  Dim xSTR As String

  'MsgBox ("csillag")

  Worksheets.Add().Name = "SZUMMA"
  keres = "$$$"
  Worksheets("Szamla").Select
  OSZLOP = 38

  ELORE:
  ' MENNYISÉG+TOTAL

  For i = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row

  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")

  For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  If Right(SPLITTER(xDB), 1) = "-" Then 'ha csak egy negatív van a cellában akkor nem bántja
  SPLITTER(xDB) = (Replace(SPLITTER(xDB), "-", "")) * -1
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  Else
  SPLITTER(xDB) = Replace(SPLITTER(xDB), ".", ",")
  SPLITTER(xDB) = "+" + SPLITTER(xDB)
  End If
  xSTR = xSTR + SPLITTER(xDB)

  Next xDB
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = xSTR
  xSTR = ""
  Wend
  Else
  End If

  OSZLOP = OSZLOP + 7
  Next i

  If OSZLOP = 150 Then
  OSZLOP = 42
  GoTo ELORE
  Else
  If OSZLOP = 154 Then
  OSZLOP = 43
  Else
  End If
  End If

  'EGYSÉGÁR
  For j = 0 To 15
  Columns(OSZLOP).Select
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).Find(what:=keres)
  If Not cella Is Nothing Then 'ha talál akkor
  Sheets("Szamla").Select
  cella.Activate 'akkor aktiválja a cellát
  cim_1 = ActiveCell.Address
  While Not cim_1 = cim_2
  Set cella = ActiveWorkbook.Worksheets("Szamla").Columns(OSZLOP).FindNext(cella)
  cella.Activate
  cim_2 = ActiveCell.Address
  CS_OSZLOP = ActiveCell.Column
  CS_SOR = ActiveCell.Row

  INPUT_STR = Cells(CS_SOR, CS_OSZLOP)
  SPLITTER = Split(INPUT_STR, "$$$")
  ' For xDB = LBound(SPLITTER) To UBound(SPLITTER)
  'Sheets("SZUMMA").Select
  xDB = 0
  ActiveWorkbook.Worksheets("SZUMMA").Cells(CS_SOR, CS_OSZLOP) = SPLITTER(xDB)
  ' Next xDB
  Wend
  Else
  End If

  OSZLOP = OSZLOP + 7
  Next j
  MsgBox ("kész")
  End Sub

• #1155 shev7 veterán martonx #1154

  Új Válasz 2010-02-16 20:52:39 #1155

  Ú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

  

  shev7

  veterán

  válasz martonx #1154 üzenetére

  mi rosszat szoltam?

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