- Samsung Galaxy S22 Ultra - na, kinél van toll?
- KuKirin G4 - a sebesség ára
- Okosóra és okoskiegészítő topik
- Motorola Edge 40 - jó bőr
- Elnéztük a mai dátumot
- Az Apple is mesterséges intelligenciával turbózza fel a teljes kínálatot
- Huawei P30 Pro - teletalálat
- Bluetooth-headsetekről általában
- Mobil flották
- Garmin Forerunner 165 - alapozó edzés
Hirdetés
-
Nem lesz soulslike játék a Phantom Blade Zero
gp A készítők egy pár mondatos kérdezz-felelekkel tisztáztak néhány dolgot a játékkal kapcsolatban.
-
Olcsó USB WiFi AC adapter
lo Egy olcsó WiFi AC USB adapter jó szolgálatot jelenthet, ha az új router csak elvileg támogatja a 2,4 GHz-es átvitelt.
-
Computex 2024: évente hozna új Instinct gyorsítót az AMD
ph A vállalat a Radeon Pro W7900-at is frissítette, de itt sok változásra nem kell számítani.
-
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
-
Lasersailing
senior tag
válasz Lasersailing #32264 üzenetére
Na szóval a végleges (A vastagonszedést programkód közben nem igazán értelmezte, ami így utólag érthető... Elnézést!):
Sub redharlow()
Dim sor As Integer
Dim oszlop As Integer
Dim ujsor As Integer
Dim sn As String
'program
sor = 1
sn = ActiveSheet.Name
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "eredmeny"
ujsor = 1
'fejlécet
Sheets("eredmeny").Cells(1, 1) = "Név"
Sheets("eredmeny").Cells(1, 2) = "C oszlop"
Sheets("eredmeny").Cells(1, 3) = "D oszlop"
Sheets("eredmeny").Cells(1, 4) = "E oszlop"
Sheets("eredmeny").Cells(1, 5) = "Dátum"
Sheets("eredmeny").Cells(1, 6) = "Ft"
Do
sor = sor + 1
For oszlop = 7 To 66
If Not (IsEmpty(Sheets(sn).Cells(sor, oszlop))) Then
ujsor = ujsor + 1
Sheets("eredmeny").Cells(ujsor, 1) = Sheets(sn).Cells(sor, 2)
Sheets("eredmeny").Cells(ujsor, 2) = Sheets(sn).Cells(sor, 3)
Sheets("eredmeny").Cells(ujsor, 3) = Sheets(sn).Cells(sor, 4)
Sheets("eredmeny").Cells(ujsor, 4) = Sheets(sn).Cells(sor, 5)
Sheets("eredmeny").Cells(ujsor, 5) = Sheets(sn).Cells(1, oszlop)
Sheets("eredmeny").Cells(ujsor, 6) = Sheets(sn).Cells(sor, oszlop)
End If
Next oszlop
Loop Until IsEmpty(Sheets(sn).Cells(sor, 1))
End Sub
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen