-
GAMEPOD.hu
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
-
Az a helyzet, hogy én pedig még soha nem makróztam excelben (a középiskolában nem volt tananyag, a fősulin meg még annyit se). De azért megpróbáltam beüzemelni az általad adott kódot, de sajnos az első sort se engedte már, így egy kicsit átírtam. Most már nem piros egyik sor sem, de futtatáskor egy 438-as hibaüzenetet ad: "Object doesn't support this property or method"
Sub Választó()
Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To LastRow - 1
For j = 1 To LastRow
If Cells(i, 1) + Cells(j, 1) = Range("C1") Then
Cells(i, 1).Cut
Cells(ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1, 11).Paste
Cells(j, 1).Cut
Cells(ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1, 11).Paste
End If
Next
Next
End SubTudnál segíteni? (Már ha van türelmed egy kezdőnek elmagyarázni)
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen