PROHARDVER! témák
Mobilarena témák
IT café témák
-
Fototrend
Fototrend
Új hozzászólás Aktív témák
-
föccer
nagyúr
No, itt a végleges, nálam is hibátlanul futó makró
Sub CommandButton1_Click()
Dim AF As AutoFilter
Dim F As Filter
Dim i As Long, usor As Long, C As Long
Sheets("Receptek").Select
Set AF = ActiveSheet.AutoFilter
C = AF.Filters.Count
Range(Cells(2, 1), Cells(2, C)).Value = ""
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Sheets("Receptek").Cells(2, i).NumberFormat = "@"
Sheets("Receptek").Cells(2, i).Value = F.Criteria1
End If
Next
End SubKöszi a segítséget, nélkületek nem lett volna meg. Soakt tanultam belőle. Most jön a következő feladat
Üdv, föccer
Új hozzászólás Aktív témák
Topikgazda
Fferi50Aktív témák
- Fejhallgató erősítő és DAC topik
- Megújult mobilos felület, fórumos ráncfelvarrás a PROHARDVER! lapcsaládon
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- A fociról könnyedén, egy baráti társaságban
- EAFC 26
- Spórolós topik
- Gitáros topic
- Október 6-án jelenik meg a Star Wars: Galactic Racer
- Brogyi: CTEK akkumulátor töltő és másolatai
- Lalikiraly: Mercis kalandok - Huszonkilencedik rész
- További aktív témák...
Új fizetett hirdetések
Üzleti előfizetők hirdetései
- 27% - LG UltraGear 32GS75QX-B Monitor! 2560x1440 / 180Hz / 1ms / G-Sync / FreeSync
- Panasonic LUMIX G 25mm f/1.7 ASPH objektív
- 27% - Erazer P20 GAMER PC! i7-14700F / RTX 4070 / 16GB DDR5 / 1TB NVMe / B760
- HIBÁTLAN iPhone 12 Pro 128GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS4493
- Lenovo Thinkpad P15 Gen 2 - 23 akkuciklus - 27% ÁFÁS (0358AB)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest