-
IT café
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
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Canva Pro előfizetés - 1 éves
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen