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

• #26429 Delila_1 veterán aviator #26427

  Új Válasz 2015-04-07 13:00:33 #26429

  Ú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

  

  Delila_1

  veterán

  válasz aviator #26427 üzenetére

  Gondolom, az időértéket tartalmazó cellák szöveg formátumúak, azért kell a ":"-ot keresni bennük.
  Kijelölöd az oszlopot, és indítod a makrót.

  Sub Kijelol()
  Dim CV As Object, ter As String
  
  For Each CV In Selection
  If CV = "" Then
  Exit For
  Else
  If InStr(CV, ":") > 0 Then ter = ter & CV.Address & ","
  End If
  Next
  ter = Left(ter, Len(ter) - 1)
  Range(ter).Select
  End Sub

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