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

• #11553 Delila_1 veterán mr.nagy #11552

  Új Válasz 2011-10-04 08:20:07 #11553

  Ú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 mr.nagy #11552 üzenetére

  Ez a makró megoldja, bár egyúttal megszünteti az ellenőrzés lehetőségét. Az eredeti értékeket tartalmazó G oszlopot el is rejthetted volna.

  Sub szamitas()
  Dim WS1 As Worksheet, WS2 As Worksheet, sor%, usor%, lel
  
  Set WS1 = Sheets("első")
  Set WS2 = Sheets("második")
  WS2.Select
  
  usor% = Range("G2").End(xlDown).Row
  For sor% = 2 To usor%
  lel = WS1.Range("E:E").Find(Cells(sor%, "E")).Row
  If WS1.Cells(lel, 1) = 380 Then
  Cells(sor%, 7) = WS1.Cells(lel, 7) + Cells(sor%, 7)
  Else
  Cells(sor%, 7) = WS1.Cells(lel, 7) - Cells(sor%, 7)
  End If
  Next
  End Sub

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