Új hozzászólás Aktív témák

• #17189 m.zmrzlina senior tag Delila_1 #17185

  Új Válasz 2013-03-11 14:46:19 #17189

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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