Hirdetés
- iPhone topik
- Fotók, videók mobillal
- Milyen okostelefont vegyek?
- Folyamatos vérnyomásmérést kínál a Huawei Watch D2
- Google Pixel 9 Pro XL - hét szűk esztendő
- Stílussal és friss szenzorokkal futott be a Huawei Watch GT 5
- Yettel topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Apple iPhone 15 Pro Max - Attack on Titan
- Huawei P50 Pro - emlékkép
Hirdetés
-
Nyugodtan viheti az AI-szakembereket a Microsoft
it A Microsoft átvette az Inflection embereinek zömét, valamint a társalapítókat – de az EU trösztellenes hatósága nem piszkál bele a folyamatba. A hollandok elégedetlenek.
-
Megérkezett a Crucial P310 SSD M.2 2280-as kiadása
ph A PlayStation 5-tel is kompatibilis, költséghatékonyságra fókuszáló tároló olvasásban hozza a 7 GB/s körüli szintet.
-
Asus Rog Ally(RC71L)
lo Szép Napot Mindenkinek Szemezgettem ezzel a RoG Ally(ejtsd: Rodzs Eláj)-al, hogy kéne valami, ami hordozhatóbb mint egy...
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Salex1
senior tag
válasz Delila_1 #21080 üzenetére
Rendszerek C oszlopát kell a Munkák B oszlopba, illetve a H-t a H-ba.
De a lényeg, hogy a munkafüzet megnyitásánál az auto_open makróban rendesen lefut, hiba nélkül, viszont, egy command_button-hoz rendelve, ugyanazon szöveg átmásolva már nem. Nem okoz hibát, de nem is végzi el a feladatát.Sheets("Rendszerek").Select
' megkeresi az utolso ures cellat
FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
' vegigmegy a cellakon 2_vel kezdve
For X = 2 To FinalRow
' eldönti másoljon-e a cells_x,15 cella alapján
ThisValue = Cells(X, 15).Value
If ThisValue = "1" Then
' ha a 15 azaz O cella 1 akkor masol
Cells(X, 3).Resize(1, 1).Copy
' munka1 lap kivalasztasa
Sheets("Munkák").Select
' a kovetkezo ures sor 2 azaz B oszlopaba irja a kivalasztott cellat
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Rendszerek").Select
Cells(X, 15) = "áttéve"
' a lejáratidátumot is átviszi a 8.(H) oszlopba
Cells(X, 8).Resize(1, 1).Copy
Sheets("Munkák").Select
Cells(NextRow, 8).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
' 7. oszlopba beírja, hogy TERV
Cells(NextRow, 7).Select
ActiveCell.FormulaR1C1 = "Terv"
Sheets("Rendszerek").Select
End If
Next X
' kijelölés megszüntetése
Application.CutCopyMode = False
Sheets("Munkák").Select
Selection.AutoFilter Field:=7, Criteria1:="<>kész", Operator:=xlAndSzerk: Jut eszembe, lehetséges valahogy a command_buttonnal meghívni az auto_open makrót?
[ Szerkesztve ]
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft
Város: Debrecen
Cég: Ozeki Kft
Város: Debrecen