Hozzászólások
-
SzerzőBejegyzés
-
Szia!
Nagyon köszönöm, ismét tanultam valamit… 🙂 akkor vissza tartománnyá, ami alapból (majdnem) mindegy.
Üdv,
LaciKöszönöm! KL
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, 10 months telt el-kovacsl1968.
- A hozzászólás módosításra került: 3 years, 10 months telt el-kovacsl1968.
Köszönöm a segítséget, szuper lett!
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.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…
Ismét köszönöm!
É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 iEnd Sub
A countif… sornál elakadtam. Kérhetek ismét segítséget?
Köszönöm! Szuper lett!
Megoldva:
Sub print_beo()
‘
‘ print_beo Makró
‘Dim a As Integer
a = 1
For i = 5 To 204
If Munka4.Cells(i, 4).Value <> „” ThenSheets(„Jelenléti I.”).Select
Range(„A3”).SelectActiveCell.FormulaR1C1 = a
Range(„A4”).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
a = a + 1
Else
Sheets(„I.”).Select
Range(„A1”).SelectEnd If
Next iEnd 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…)
megoldva
Helyesbítek… Működik. 🙂 Persze, hogy bénáztam, de sikerült az adaptáció. Ezer köszi!
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 LongSheets(„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.
Köszönöm a segítséget!
Köszönöm! Érthető!
-
SzerzőBejegyzés