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

• #36041 n1nja tag poffsoft #36040

  Új Válasz 2017-08-25 14:06:20 #36041

  Ú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

  

  n1nja

  tag

  válasz poffsoft #36040 üzenetére

  akár
  (gépenként az első dátumot kimenti egy tömb-be, majd a tömböt növekvő sorrendbe rendezi és az időpont új sorszámát beírja gépenként a sorting no. oszlopba)
  nem szép, de működik

  Private Sub CommandButton1_Click()

Dim currv As Integer
Dim csere As Date
Dim i, j, k, rowcount As Integer
Dim currmachine As String
Dim tomb(1 To 145) As Date

range("R2").Value = "Sorting no."
mint = range("C3").Value
maxt = range("C3").Value
currmachine = " "
rowcount = range("A3", range("A3").End(xlDown)).Rows.Count
Cells(3, 25).Value = rowcount
j = 0

For i = 1 To rowcount
If currmachine <> Cells(i + 2, 1) Then
currmachine = Cells(i + 2, 1)
j = j + 1
tomb(j) = Cells(i + 2, 3)
End If
Next i

For i = 1 To j - 1
For k = i + 1 To j
If tomb(i) > tomb(k) Then
csere = tomb(i)
tomb(i) = tomb(k)
tomb(k) = csere
End If
Next k
Next i

currmachine = " "

For i = 1 To rowcount
If currmachine <> Cells(i + 2, 1) Then
For k = 1 To j
If Cells(i + 2, 3) = tomb(k) Then
currv = k
End If
Next k
End If
Cells(i + 2, 18).Value = currv
Next i

End Sub

• #36039 n1nja tag n1nja #36034

  Új Válasz 2017-08-25 12:40:57 #36039

  Ú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

  

  n1nja

  tag

  válasz n1nja #36034 üzenetére

  Makróval megoldottam, köszönöm a segítséget.

• #36034 n1nja tag Fferi50 #36028

  Új Válasz 2017-08-25 06:29:41 #36034

  Ú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

  

  n1nja

  tag

  válasz Fferi50 #36028 üzenetére

  Változás van:
  a tervek már időrendi sorrendben vannak a gépeken belül, tehát csak a gépcsoportok első eleme szerint kellene rendeznem idő szerint. Azt hogy?

• #36027 n1nja tag Delila_1 #36025

  Új Válasz 2017-08-24 15:53:55 #36027

  Ú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

  

  n1nja

  tag

  válasz Delila_1 #36025 üzenetére

  Jelenleg nem vagyok se gép, se a táblázat közelében. Ez hogy nézne ki?

• #36026 n1nja tag poffsoft #36023

  Új Válasz 2017-08-24 15:52:47 #36026

  Ú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

  

  n1nja

  tag

  válasz poffsoft #36023 üzenetére

  Függvénnyel és makróval is jó. Ez mindegy.

• #36022 n1nja tag

  Új Válasz 2017-08-24 11:41:29 #36022

  Ú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

  

  n1nja

  tag

  Sziasztok.

  Segítséget szeretnék kérni.
  Adott egy táblázat a következő oszlopokkal:
  Gép, Idő, TervAzon, Terv.
  Alaphelyzetben gép szerinti ABC sorrend rendezés van, azon belül a Terv-ek vannak meghatározott sorrendben.
  Szeretném az egészet időrendi sorrendbe rakni, úgy, hogy a gépnevek ne essenek szét (maradjanak meg a csoportok), megtartva a tervek sorrendjét. (TervAzon szerint is jó lenne rendezni)

  Próbáltam így is, úgy is, de nem jutottam egyről a kettőre.

  Teszek fel egy képet:
  bal oldali táblázat az eredeti, középső a hibás rendezéssel és a jobb oldali, amit szeretnék megvalósítani.

  Köszönöm a hozzászólásokat előre is.

  Üdv.
  Gábor

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