Thx for the reply mate
Below the code i use
"Option Explicit
Sub AylikSiparisDene()
Dim a1, a2, a8, a20 As Variant
Dim a5, a9, a19, a23, a21, a22, a24 As Integer
Dim Rng As Range
Application.ScreenUpdating = False
Range(Sheets(2).Cells(3, 9), Sheets(2).Cells(32, 20)).ClearContents
a1 = ActiveWorkbook.Name
Sheets(1).Activate
a2 = Sheets(1).Cells(1, 2)
Workbooks.Open a2
a8 = ActiveWorkbook.Name
a5 = 32
a9 = 41
'*******************Aylık bazda model siparisi hesaplanması
For a19 = 3 To a5 'program excelinde model ismi iceren sutunun son dolu satır numarası
Workbooks(a1).Activate
Sheets(2).Activate
a20 = Sheets(2).Cells(a19, 1) 'aranacak model ismi
a23 = 0 'aylık siparis adedi sıfırlandı
For a21 = 2 To a9 'forecast te model isminin oldugu satırlar
Workbooks(a8).Activate 'forecast excelini aktive et
Sheets(1).Activate
If Sheets(1).Cells(a21, 1) = a20 Then
For a22 = 4 To 15
a23 = 0
Workbooks(a8).Activate 'forecast excelini aktive et
Sheets(1).Activate
a23 = Sheets(1).Cells(a21, a22) 'model basına her ayın siparis adedi
Workbooks(a1).Activate
Sheets(2).Activate
Set Rng = Range("h:h").Find(what:=a20, lookat:=xlWhole, LookIn:=xlValues)
a24 = Rng.Row
Sheets(2).Cells(a24, a22 + 5) = Sheets(2).Cells(a24, a22 + 5) + a23
Next a22
Else: End If
Next a21
Next a19
'************************************************************
Workbooks(a1).Activate
Sheets(2).Activate
End Sub
as you can see i was using the range-find method but it is still not working
i tried to delete last 2 digits of one of them and now it works.
so the difference between those 2 words is much more than before
But this not an exact solution :/