cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Can't see all data in For loop in Excel VBA code

MelsZey
Copper Contributor

‎Oct 15 2021 07:17 AM

‎Oct 15 2021 07:17 AM

Can't see all data in For loop in Excel VBA code

Hello,
I need to pull the percentile ratio of three different data based on dates from a total of 30+1 sheets using a macro in Excel.
I am writing the code below, the code works in general, but there is a situation like this. Sometimes, for example, all the necessary data on the 12th of the month have come, but two of the four data I pulled from the percentiles on the 13th of the month have two, or there is no data on the 13th.
I am getting run time error 9 subscript out of range error.

How can I fix this error? Can you help me?

Sub klavye_aykik_hesaplama_uretim_bazli()
            'For i = 1 To 131'total 3 data; keyboard, mouse and speaker, and this production percentage on the same day, a total monthly production data is available in the table
                On Error Resume Next'when ı was a error, ı writen this code 
                For J = 3 To 262
                   If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "01.08.2021" Then
                        If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                        ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("1 AGUSTOS").Range("F100").Value
                        ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("1 AGUSTOS").Range("J100").Value
                        ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                        ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                        End If
                    End If                    
                      If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "02.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye"
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("2 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "03.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("3 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("3 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "04.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("4 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("4 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "05.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("5 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("5 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "06.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("6 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("6 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "07.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("7 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("7 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "08.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("8 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("8 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "09.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("9 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("9 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "10.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("10 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("10 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "11.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("11 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("11 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "12.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("12 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("12 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "13.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("13 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("13 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "14.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("14 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("14 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "15.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("15 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("15 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "16.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("16 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("16 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "17.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("17 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("17 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "18.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("18 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("18 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                    If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "19.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("19 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("19 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "20.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("20 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("20 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "21.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("21 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("21 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "22.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("22 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("22 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "23.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("23 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("23 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "24.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("24 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("24 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "25.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("25 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("25 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "26.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("26 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("26 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "27.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("27 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("27 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "28.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("28 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("28 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "29.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("29 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("29 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                     If ThisWorkbook.Sheets("Sheet8").Cells(J, 2).Value = "30.08.2021" Then
                            If ThisWorkbook.Sheets("Sheet8").Cells(J, 3).Value = "klavye" Then
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 5).Value = ThisWorkbook.Sheets("30 AGUSTOS").Range("F100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 6).Value = ThisWorkbook.Sheets("30 AGUSTOS").Range("J100").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 7).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("C35").Value
                            ThisWorkbook.Sheets("Sheet8").Cells(J, 8).Value = ThisWorkbook.Sheets("AGUSTOS_ORT").Range("G35").Value
                            End If
                    End If
                J = J + 1
               Next J
            'i = i + 1
            'Next i
End Sub
260 Views
0 Likes
0 Replies
Reply
0 Replies