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

• #44121 szricsi_0917 tag

  Új Válasz 2020-05-26 12:01:52 #44121

  Ú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

  

  szricsi_0917

  tag

  Sziasztok

  Sub kmfrissites_auto()
Dim auto As Worksheet
Dim utnyilvan As Worksheet
Dim szerviz As Worksheet
Dim lastrow
Dim lastrow1
Dim lastrow2
Dim i As Long
Set auto = Sheets("Autó")
Set utnyilvan = Sheets("Útnyilvántartó")
Set szerviz = Sheets("Szerviznyilvántartó")
lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
 auto.Range("U" & i) = Application.WorksheetFunction.SumProduct(Application.WorksheetFunction.Max((utnyilvan.Range("B2:B" & lastrow1) = auto.Range("B" & i)) * utnyilvan.Range("C2:C" & lastrow1)))
 Next i

  Az auto.Range..... sornál miért fut "type mismatch" hibára?
  Köszönöm a segítséget!

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