- Xiaomi 17 - még mindig tart
- Redmi Note 15 Pro+ - több plusz, mint mínusz
- Samsung Galaxy A55 - új év, régi stratégia
- Fotók, videók mobillal
- Xiaomi 17 Ultra - jó az optikája
- Samsung Galaxy S23 Ultra - non plus ultra
- Milyen okostelefont vegyek?
- Jolla és SailfishOS tapasztalatcsere
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- iPhone topik
Új hozzászólás Aktív témák
-
öcsi-bácsi
csendes tag
Sziasztok!
Accses lekérdezés adatait szeretném world körlevélbe illeszteni.
Van ötletetek, hogyan tehetném meg?
Akár VB, akár acces jelentés formája érdekelne. -
öcsi-bácsi
csendes tag
válasz
öcsi-bácsi
#1490
üzenetére
megtaláltam:
Sub rög4()
'minta védelem feloldására
Sheets("Munka2").Select
'azért kell először feloldani a védelmet, mert a kijelölés munka1!a1 megszűnik
pass = "123456789"
ActiveSheet.Unprotect pass
'most lehet másolni!
Sheets("munka1").Select
Range("a1").Select
Selection.Copy
Sheets("Munka2").Select
Range("A1").Select
ActiveSheet.Paste
'majd rátenni a védelmet!
ActiveSheet.Protect Password:=pass
Sheets("munka1").Select
End Sub
-
öcsi-bácsi
csendes tag
válasz
#90999040
#1489
üzenetére
Köszi, rendes vagy.
Közben találtam egy megoldást:
'visszhang kikapcs
Application.ScreenUpdating = False
"makró fut"
Application.ScreenUpdating = TrueAmi viszont közben kérdésessé vált: adatokat másolok egy űrlapról makróval, egyik excel lapról a másikra, viszont szándékaim szerint a második lap egyfajta adatbázis lesz, amit ellátnék lapvédelemmel. Viszont a makróm természetesen megáll, ha a második lap védelmét bekapcsolom.
Kérdésem: hogyan másolhatna a makróm mégis ide adatokat?
-
öcsi-bácsi
csendes tag
Sziasztok!
Szeretném, ha a makróm futása közben nem mutatná az oldalakat ahonnan adatokat másol, csak a végeredményt!
Biztosan van rá valami utasítás,csak még kezdő vagyok.
Előre is köszi.

Új hozzászólás Aktív témák
Hirdetés
- Lexus, Toyota topik
- Gaming notebook topik
- Xiaomi 17 - még mindig tart
- Autós topik
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- A fociról könnyedén, egy baráti társaságban
- Forradalomi előrelépésként jellemzi az NVIDIA a DLSS 5-öt
- Milyen monitort vegyek?
- Redmi Note 15 Pro+ - több plusz, mint mínusz
- További aktív témák...
- 250GB Sata SSD-k / Samsung 840 Evo / 850 Evo / CM871a / Kingmax /
- ASUS ROG G70S retro gamer laptop 17 dual GPU SLI ritka különlegesség
- Asus ROG Strix G731GT - 17.3"FHD IPS 120Hz - i7-9750H - 8GB - 512GB SSD - 1TB HDD - GTX 1650 - Win11
- Vízhűtéses gép eladó!
- Kingston HyperX FURY RGB 16GB (2x8GB) DDR4 3200MHz
- Samsung Galaxy Book 3 Amoled 360 i5 13.gen, 16GB RAM, 512GB SSD, érintőkijelzős kedvező áron!
- AKCIÓ! Asrock B450M R5 5600 16GB DDR4 512GB SSD GTX 1080 8GB Zalman T3 Plus ADATA 600W
- Vállalom Xianomi Okos kamerák, szoftveres javíttását
- iPhone 13 128GB 100% Green (1év Garancia) - ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- ÚJ MSI Katana 15 HX - 15.6" QHD 165Hz - i7-14650HX - 16GB - 1TB - RTX 5060 - Win11 - 3 év gari - HUN
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest






