Új hozzászólás Aktív témák
-
martonx
veterán
válasz
pirit28
#2228
üzenetére
Ez tényleg annyira triviális volt, hogy rászántam azt a 30 másodpercet.
Nem a konkrét feladat megoldása, de példának tökéletes:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
valami = Target.Value
If Target.Column = 3 Then
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 5) = Target
Application.EnableEvents = True
End If
End Sub -
Bobrooney
senior tag
válasz
pirit28
#2061
üzenetére
Excel topic, én csak ennyiben tudok most segíteni, próbáld meg ott is.
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- A popóalávaló: DXRacer Drifting gamer szék tesztje
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- Azonnali fáradt gőzös kérdések órája
- Tudományos Pandémia Klub
- Elemlámpa, zseblámpa
- Milyen TV-t vegyek?
- Projektor topic
- Örömhír: nem spórol Európán a OnePlus
- TCL LCD és LED TV-k
- További aktív témák...
- Akciós! Makulátlan MacBook Pro 16 i9 16GB 1TB M5500 részletek a leírásban.
- UF Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -50% i7-1360P 16/1TB Iris Xe 2,8K OLED 90Hz
- iPhone 13 Pro Max 256GB Graphite megkímélt állapotban eladó!
- AMD Radeon RX 7900XTX Vapor-X 24GB GDDR6 Nitro+( Gari 2028-ig)
- WACOM INTUOS Pen & Touch S - Digitalizáló rajztábla
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Bomba ár! Lenovo IdeaPad V15-IIL: i5-10GEN I 8GB I 256SSD I 15,6" FHD I Cam I W11 I Garancia!
- iPhone 17 Pro Max Silver - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok !!
- Vivo V50 12/512GB,Újszerű,Adatkabel,12 hónap garanciával
- Samsung Galaxy A53 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi



