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

• #40397 Declare őstag

  Új Válasz 2019-03-11 14:19:38 #40397

  Ú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

  

  Declare

  őstag

  Sziasztok!

  Van egy (szerintem) egyszerü es egy kisse komplexebb kerdesem.

  Ezt a makrot hogy kell modositanom, hogy az uj worksheetet mindig a worksheetek végére illessze be?

  (Egy gombot csinaltam az excelben, amire kattintva lefut ez a makro. A makro letrehoz egy uj sheetet es elnevezi az aznapi datummal es kiirja hogy kesz. Ha ilyen sheet mar van, akkor kiirja, hogy mar van ilyen es nem csinal semmit.)

  Private Sub CommandButton1_Click()
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Format(Date, "DD/MM/YY")

On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' Fertig."

Else
MsgBox "The sheet named ''" & newSheetName & _
"''schon existiert."
End If
Unload Me

  Kerdes2. Ez a bonyi

  Van egy tablazat (tablazatkent formazva) A:I tartomanyban:

  A__________B___________C__________..... _______I
  Cegnev1 ___Szakág1___ Datum1 __....._______Emberek szama1
  .
  .
  Cegnev6 Szakág6 Datum1 ..................................Emberek szama6
  .
  .
  stb.

  Innen kellene kigyüjteni a fent letrehozott aznapi datummal elnevezett worksheetben a datumnak megfeleöen egymas ala kilistazva az elemeket.

  (Azaz a makronak a C oszlopban kellene keresni a datumnak megfelelö ertetekeket es ha talal egyet fentröl lefele haladva, akkor az uj tablazatba az A1 cellaba beirja a hozza tartozo ertekeket (azaz A1=>Cegnev1; B1=>Szakág1; C1=>Emberek szama1). Majd megy tovabb lefele es ha megint talal egy megfelelö datumot ott megint kigyüjti az ertekeket (azaz pl.: A2=>Cegnev6; B2=>Szakág6 ...stb)

  Egesz sok mindent összeraktam már ehhez a tablazathoz, de ezzel a feladattal sajna elakadtam

  Valakinek erre ötlet?

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