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

• #24534 slashing senior tag

  Új Válasz 2014-12-08 21:39:35 #24534

  Ú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

  

  slashing

  senior tag

  Írd át az "e" betűket arra az oszlopra amelyikre alkalmazni szeretnéd, remélhetőleg ilyet akartál...

  Sub kijelol()
  Dim cella As Range, kijeloles As Range, ASN As String
  
  ASN = ActiveSheet.Name
  
  usor = Sheets(ASN).Range("e" & Rows.Count).End(xlUp).Row
  
  For Each cella In Sheets(ASN).Range("e1:e" & usor)
  If (cella.Value <> "") Then
  If kijeloles Is Nothing Then
  Set kijeloles = cella
  Else
  Set kijeloles = Union(cella, kijeloles)
  End If
  End If
  Next cella
  
  kijeloles.Copy
  
  End Sub

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