- Út Korea turistaparadicsomába, amiről talán még sosem hallottál: Csedzsu-sziget
- Perplexity Pro AI képszerkesztési limit -egy képgenerátor függő tapasztalatai
- Adattár lemez előkészítése Windows telepítéshez
- Jelszóvédett IBM Thinkpad R50e működőképessé tétele.
- ATK Blazing Sky X1 Ultimate Metallic Red gamer egér
- SzDavid99: Út Korea turistaparadicsomába, amiről talán még sosem hallottál: Csedzsu-sziget
- Elektromos rásegítésű kerékpárok
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- aquark: Jó platformer játékokat keresek!
- Kempingezés és sátrazás
- gban: Ingyen kellene, de tegnapra
- Gurulunk, WAZE?!
-
LOGOUT
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
-
mr.nagy
tag
válasz
Delila_1 #10983 üzenetére
Végülis ennek a használatánál maradtam, azonban a táblázatba építve egy hiba üzenetet kapok:
Object variable or With block variable not setÍgy néz ki most a teljes kód:
Private Sub CommandButton1_Click()
Sheets("eladás").Activate
Sheets("eladás").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("készlet").Activate
Sheets("készlet").Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("kiárusítás").Activate
MsgBox ("KÉSZ!!!")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Range("A7").Select
If Intersect(Range("E3"), Target) = "" Then Exit Sub
If Not Intersect(Range("E3"), Target) Is Nothing Then _
Selection.AutoFilter Field:=1, Criteria1:=Range("E3")
End SubMi lehet a hiba? Tudsz rá valami megoldást?
Új hozzászólás Aktív témák
Hirdetés
- OLED TV topic
- Borderlands 4
- Vírusirtó topic
- Milyen billentyűzetet vegyek?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Autós topik látogatók beszélgetős, offolós topikja
- Blu-ray lemez tapasztalatok
- Autós topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Gaming notebook topik
- További aktív témák...
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- Eredeti - Choice - Bundle - Steam kulcsok beszerzése. Írj kérés PM-et!
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- BESZÁMÍTÁS! Asus TUF A620M R7 7700 64GB DDR5 500GB SSD RX 6800 XT 16GB ZALMAN I3 NEO Seasonic 750W
- Takamine GD20CE elektroakusztikus gitár keménytokkal együtt. Kb 10 alkalommal használt,nem hordoztam
- iKing.Hu - Google Pixel 10 Tensor G5, 120 Hz OLED, tripla kamera-128 GB Használt, karcmentes Gari
- Bomba ár! Asus X540YA - AMD A8 I 8GB I 512SSD I Radeon I 15,6" FHD I Cam I W10 I Garancia!
- Több mint 70.000 eladott szoftverlicenc
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest