Telefonszámunk: 1-472-0679

Hozzászólások

15 bejegyzés megtekintése - 1-15 / 15
  • Szerző
    Bejegyzés
  • Hozzászólás: [Resolved] Makró futtatás idő #8834
    kovacsl1968
    Felhasználó

      Szia!

      Nagyon köszönöm, ismét tanultam valamit… 🙂 akkor vissza tartománnyá, ami alapból (majdnem) mindegy.

      Üdv,
      Laci

      Hozzászólás: [Resolved] makró sorainak számozása #8782
      kovacsl1968
      Felhasználó

        Köszönöm! KL

        Hozzászólás: [Resolved] Feltétel eltelt idő függvényében #8331
        kovacsl1968
        Felhasználó

          Igen valóban 🙂 a probléma az volt, hogy a makrózott valós idő cella formátuma nem egyedi volt, hanem idő és valamiért nem tetszett neki. Mondjuk most is az, mert egy kicsit másabb megoldást alkalmaztam, mégpedig egy elrejtett segéd cellában (U2) azt mondtam, hogy a bevitt statikus idő (ami szintén nem egyéni formátum) az =MA()+B2 a statikus idő értéke, majd erre hivatkozva: =HA(B2<>””;HA($R$1>U2+(1/24+20/24/60);”!!”;HA($R$1>U2+1/24;”!”;””));””) ahol az R1 a valós idő… De ez egyik megoldás értékéből sem von le semmit (hiába na, jó volt anno a tanárom 🙂 ) és ismét tanultam valamit. Ma is…

          • A hozzászólás módosításra került: 3 years, 2 months telt el-kovacsl1968.
          • A hozzászólás módosításra került: 3 years, 2 months telt el-kovacsl1968.
          Hozzászólás: [Resolved] Feltétel eltelt idő függvényében #8328
          kovacsl1968
          Felhasználó

            Köszönöm a segítséget, szuper lett!

            Hozzászólás: [Resolved] Feltétel eltelt idő függvényében #8325
            kovacsl1968
            Felhasználó

              Próbáltam úgy is megközelíteni a kérdést, hogy valós idő mínusz statikus idő, ez ketyeg egy másik cellában. Ha eléri az egy órát, akkor legyen fk jel.
              =HA(ÓRA(P1)>IDŐ(1;0;0);”!”;””)
              ezzel működik egy óra után, a baj az hogy a
              =HA(ÓRA(P1)>IDŐ(2;0;0);”!”;””) képlettel, amikor két óra után kellene fk jel, akkor is egy óra elteltével teszi be az fk jelet.

              Hozzászólás: [Resolved] Feltétel eltelt idő függvényében #8324
              kovacsl1968
              Felhasználó

                Köszönöm a választ. Sajnos a problémát nem oldotta meg. Folyamatosan két felkiáltó jel van, értéktől függetlenül. De nem adom fel 🙂 próbálkozom tovább…

                Hozzászólás: [Resolved] Kitöltés értékkel #8272
                kovacsl1968
                Felhasználó

                  Ismét köszönöm!

                  Hozzászólás: [Resolved] Másolás új sorba #8267
                  kovacsl1968
                  Felhasználó

                    És akkor már csak egy apróság: kitöltés makróval, egy oszlopban az értékek 1-100 között, mindegyik érték szerepeljen 10x. Egyelőre sikeresen kitöltettem csak az 1-es értékkel. Azt szeretném megadni, hogy 10 darab után az értéket növelje 1-el.

                    Sub ID()

                    a = 1
                    For i = 2 To 1001
                    For j = 2 To 2
                    Sheets(„osszefuz”).Cells(i, j) = a
                    CountIf.Cells(i, j) = 10
                    Sheets(„osszefuz”).Cells(i, j) = a + 1
                    Next j
                    Next i

                    End Sub

                    A countif… sornál elakadtam. Kérhetek ismét segítséget?

                    Hozzászólás: [Resolved] Másolás új sorba #8266
                    kovacsl1968
                    Felhasználó

                      Köszönöm! Szuper lett!

                      Hozzászólás: [Resolved] nyomtatás #7347
                      kovacsl1968
                      Felhasználó

                        Megoldva:

                        Sub print_beo()

                        ‘ print_beo Makró

                        Dim a As Integer
                        a = 1
                        For i = 5 To 204
                        If Munka4.Cells(i, 4).Value <> „” Then

                        Sheets(„Jelenléti I.”).Select
                        Range(„A3”).Select

                        ActiveCell.FormulaR1C1 = a
                        Range(„A4”).Select
                        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                        IgnorePrintAreas:=False
                        a = a + 1
                        Else
                        Sheets(„I.”).Select
                        Range(„A1”).Select

                        End If
                        Next i

                        End Sub

                        ugyanis lehet, hogy nem voltam elég pontos. Egy táblázatban vannak munkavállalók, X darab, ide 1-31 között műszakkódok kerülnek. Ez automatikusan történik öröknaptárral a háttérben. Ennek alapján nyomtatok mindenkinek egy jelenléti ívet, ez egy másik munkalap lesz. Innen jött az előzőleg említett probléma, de a fenti makróval megoldva…

                        Azért köszönöm a segítséget! (jó volt az oktatóm anno, nem akarok újjal mutogatni 😀 gondolkodásra késztetett…)

                        Hozzászólás: [Resolved] beosztás makrózása #7342
                        kovacsl1968
                        Felhasználó

                          megoldva

                          kovacsl1968
                          Felhasználó

                            Helyesbítek… Működik. 🙂 Persze, hogy bénáztam, de sikerült az adaptáció. Ezer köszi!

                            kovacsl1968
                            Felhasználó

                              Sziasztok!
                              Nos próbáltam adaptálni a fenti makrót a sajátosságok figyelembe vételével sajnos nem történik semmi. Nem dob ki hibaüzenetet, de nem is csinál semmit.
                              Így néz ki az én verzióm:

                              >>>
                              Sub Masolas()
                              Dim sor As Long, usor As Long, i As Long

                              Sheets(„Garázsmesteri jelentés”).Select
                              i = 5
                              usor = Sheets(„Garázsmesteri jelentés”).Range(„A” & Rows.Count).End(xlUp).Row
                              For sor = 5 To usor
                              If Cells(sor, „Q”) > „” Then
                              Sheets(„Telefonálók”).Cells(i, „A”) = Cells(i, „G”)
                              Sheets(„Telefonálók”).Cells(i, „B”) = Cells(i, „H”)
                              i = i + 1
                              End If
                              Next
                              End Sub
                              <<<

                              A „Garázsmesteri jelentésből” veszem az adatokat, az 5. sortól… Mit bénáztam már megint el? 🙁

                              Köszi.

                              kovacsl1968
                              Felhasználó

                                Köszönöm a segítséget!

                                Hozzászólás: [Resolved] Megtérülés diagram #4996
                                kovacsl1968
                                Felhasználó

                                  Köszönöm! Érthető!

                                15 bejegyzés megtekintése - 1-15 / 15