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

• #6442 Delila_1 Topikgazda WildBoarTeam #6441

  Új Válasz 2010-03-02 15:26:48 #6442

  Ú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

  

  Delila_1

  Topikgazda

  válasz WildBoarTeam #6441 üzenetére

  Kicsit többet kellene tudni a feladatodról. Mi a lapok neve, hol helyezkednek el az adatok.
  Írtam egy rövid kis makrót. Az egyik lap neve Készenlét. Ennek az A oszlopában vannak a nevek, mellettük a B oszlopban a dátum, mikor készenlétben voltak. Egy-egy név többször is szerepel.
  A Nevek lap csakis a dolgozók nevét tartalmazza, az A oszlopban. Mindkét lapon az első a címsor, az adatok a 2. sorban kezdődnek.
  A makró a Nevek lapon mindenki neve mellé beírja a dátumokat (mindig a következő oszlopba), amikor készenlétben voltak.

  Sub Datumok()
  Dim sor, sor_k, usor_k, oszlop As Integer
  
  usor_k = Sheets("Készenlét").Range("A65000").End(xlUp).Row
  Sheets("Nevek").Select
  
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  For sor_k = 2 To usor_k
  If Sheets("Készenlét").Cells(sor_k, 1) = Cells(sor, 1) Then
  oszlop = Range("IV" & sor).End(xlToLeft).Column + 1
  Cells(sor, oszlop) = Sheets("Készenlét").Cells(sor_k, 2)
  End If
  Next
  Next
  End Sub

  "bü" beírásakor nem is kell színezni.

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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