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

• #29186 Delila_1 veterán lenkei83 #29185

  Új Válasz 2015-10-26 10:06:32 #29186

  Ú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 lenkei83 #29185 üzenetére

  Nálam a legördülők eredménye a Munka1!B1 cellában van, az adatok a Munka2 lapon helyezkednek el.

  Sub OsszegzesFeltetellel()
  Dim cim As String, terulet As Range, CV As Range, MitKeres As Variant
  
  Set terulet = ActiveSheet.UsedRange
  MitKeres = Sheets("Munka1").Range("B1")
  For Each CV In terulet
  If CV = MitKeres Then cim = cim & "Munka2!" & CV.Address & "+"
  Next
  
  cim = Left(cim, Len(cim) - 1)
  Sheets(1).Range("A1") = "=" & cim
  End Sub

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