-
Fototrend
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
-
m.zmrzlina
senior tag
válasz
Delila_1 #17185 üzenetére
Ez lett belőle:
Range("C" & intMeterfejlec & ":D" & intMeterfejlec_vege).Select
Set ranPorthol = Selection.Find(What:=strPort, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not ranPorthol Is Nothing Then
If Mid(Cells(ranPorthol.Row + 4, 5).Value, 9, 4) <> "UNDF" Then
strPortmap(1, intKovport) = Mid(Cells(ranPorthol.Row + 4, 5).Value, 9, 4)
intKovport = intKovport + 1
Else
strPortmap(1, intKovport) = Empty
intKovport = intKovport + 1
End If
Else
strPortmap(1, intKovport) = "NONE"
intKovport = intKovport + 1
End IfÉs láss csodát....működik.
Megint köszönöm.
Új hozzászólás Aktív témák
- Ukrajnai háború
- Óra topik
- Aliexpress tapasztalatok
- iPhone topik
- Diablo IV
- CASIO órák kedvelők topicja!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Kávé kezdőknek - amatőr koffeinisták anonim klubja
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Formula-1
- További aktív témák...