[ajulax]

Δημιούργησα το εξής script, αλλά έχει γίνει κάποιο σφάλμα.

Sub sum_pelatis()
On Error GoTo errorMsg
plithosGramon1 = InputBox("Dose to plithos ton paragelion")
plithosGramon2 = InputBox("Dose to plithos ton pelaton")

Set Sht2 = Worksheets("Pelates")
Set Sht1 = Worksheets("paragelies")


For k = 1 To plithosGramon2

kodikosPelaton1_Met = Sht2.C & k
Range(kodikosPelaton1_Met).Select
kodikosPelaton1_Timi = ActiveCell.FormulaR1C1

onomateponimo_Met = Sht2.H & k
Range(onomateponimo_Met).Select
onomateponimo_Timi = ActiveCell.FormulaR1C1

paratirisis_Met = Sh2.I & k
Range(paratirisis_Met).Select
paratirisis_Timi = ActiveCell.FormulaR1C1

For G = 1 To pilthosGramon1

kodikosPelaton2_Met = Sh1 & G
Range(kodikosPelaton2_Met).Select
kodikosPelaton2_Timi = ActiveCell.FormulaR1C1

If (kodikosPelaton1_Timi = kodikosPelaton2_Timi) Then
Katharo_Met = Sh1.J & G
Range(Katharo_Met).Select
Katharo_Timi = ActiveCell.FormulaR1C1
SumKatharo = SumKatharo + Katharo_Timi
End If
Next G
ActiveCell.Sh2.J& k = SumKatharo

Next k
errorMsg:
MsgBox Err.Description, vbOKOnly + vbCritical, "Error"
End Sub