Telefonszámunk: 30-905-2076

Hozzászólások

5 bejegyzés megtekintése - 601-605 / 605
  • Szerző
    Bejegyzés
  • delila
    Felhasználó

      A kimutatás lap J4029 celláját megjelenítheted idő formátumban.

      =HA(J4029>0;SZÖVEG(J4029;”[ó]:pp:mm”);”-” & SZÖVEG(ABS(J4029);”[ó]:pp:mm”))

      delila
      Felhasználó

        Szia!

        Erre már válaszolt Imi itt.

        Hozzászólás: File másolás makroval, checkbox-al #2889
        delila
        Felhasználó

          Szia!

          Nem tudom, lehet-e a táblázatkezeléshez készült Excelt pdf fájlok másolására használni.
          Annyit mindenesetre egyszerűsítenék a táblázatodban, hogy a kötjeleket és a pontokat tartalmazó oszlopokat törölném. Ezzel az F oszlopba kerülne a fájlnév összefűzése: =A2&”-„&B2&”-„&C2&”-„&D2&”.”&E2

          A checkboxok létrehozásánál a With-End With-ben nevet is adnék, pl.: .Name = „ChBx” & cell, másképp minden egyes létrehozásnál új számokat kapnak, és nem tudsz egyértelműen rájuk hivatkozni.

          Üdv,
          delila

          delila
          Felhasználó

            Szia!

            A =DÁTUM(JOBB(A1;4);KÖZÉP(A1;4;2);BAL(A1;2)) képlet magyar dátummá alakítja. Ha ezt a cellát másolod, majd irányítottan, értékként saját magára beilleszted, az eredeti dátum törölhető lesz.

            Hozzászólás: Villogó cella #2835
            delila
            Felhasználó

              Igaz, megkaptad a jó választ, azért írok egy másikat.

              A laphoz kell rendelned a makrót. A lapra lépéskor figyeli, hogy az A1 cellában van-e adat. Ha nincs, másodpercenként változtatja a háttér színét. Mindenképp jobbnak tartom horvimi változatát.

              Private Sub Timer()
                  If Range("A1") <> "" Then
                      Range("A1").Interior.ColorIndex = -4142
                      Exit Sub
                  End If
                  
                  With Range("A1")
                      If .Interior.Color = vbYellow Then
                         .Interior.Color = vbRed
                      Else
                         .Interior.Color = vbYellow
                      End If
                      Application.Wait Now() + TimeValue("00:00:01")
                      DoEvents
                      Timer
                  End With
              End Sub
              
              Private Sub Worksheet_Activate()
                  Timer
              End Sub
            5 bejegyzés megtekintése - 601-605 / 605