- Samsung Galaxy A56 - megbízható középszerűség
- Azonnali mobilos kérdések órája
- Xiaomi 17 - még mindig tart
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Apple Watch
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Xiaomi 13 - felnőni nehéz
- MIUI / HyperOS topik
- Nothing Phone 2a - semmi nem drága
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
-
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
-
Kobe
veterán
sziasztok
ujfent 2 vba-s kerdes
az egyik: van egy oszlopom, amiben 2 fajta ertek van (Szoveg1, Szoveg2). A mellette levo oszlopba szeretnek egy if fuggvennyel beirni egy erteket, ha pl D2 = Szoveg1 akkor E2=1, ha D2=Szoveg2, akkor E2=2
megcsinaltam VBA-val, de valamiert Type mismatch hibara fut
last = Cells.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For i = 2 To last
If Range("D2:D" & last) = "EDE" Then Range("E2:E" & last) = "2" Else Range("E2:E" & last) = "1"
Next iitt mi lehet a problem? Type mismatch valoszinu valami formatum nemegyezosegbol johet, ezert egy masik paranccsal probaltam elotte a D oszlop tartalmat szovegge formazni
Range("D2:D" & j).NumberFormat = "@"
de igy sem mukodott. Tipp, hogy mi lehet meg ?
illetve a nagyobb lelegzetvetelu dolog. Amennyiben megvan a kesz, formazott tablazatom, egy masik worksheeten van egy urlapom
Azt szeretnem, ha a makro a tablazat midnen soraval feltoltene az urlapot, es elmentene egy kulon tabra.Szoval ha van 10 db sorom a tablazatban, akkor 10 tabon kulon letrehozna 1-1 urlapot neki, es a tablaban adott sorban tarolt adatokkal kitoltene.
Pl 1es sor, elso urlap feltoltve, 2es sor masodik tab urlapja, stb
erre valakinek otlete ?

Új hozzászólás Aktív témák
- LEGO klub
- TCL LCD és LED TV-k
- Formula-1
- OLED monitor topic
- BestBuy topik
- Luck Dragon: Asszociációs játék. :)
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kerékpárosok, bringások ide!
- HiFi műszaki szemmel - sztereó hangrendszerek
- Samsung Galaxy A56 - megbízható középszerűség
- További aktív témák...
- PC Game Pass előfizetés
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- MS SQL Server 2016, 2017, 2019
- LG UltraGear 39GS95QE-B OLED Monitor! 39" 3440x1440 / 240Hz / 0.03ms / G-Sync / FreeSync! BeszámítOK
- Apple iPhone 13 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
- Realme 12X 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- Xiaomi Redmi Note 14 Pro 256GB,Újszerű,Dobozaval,12 hónap garanciával
- 5G LTE! Microsoft Surface Pro 8 i7-1185G7 16GB 512GB 1 év garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
