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

%3CLINGO-SUB%20id%3D%22lingo-sub-2850029%22%20slang%3D%22en-US%22%3ECan't%20see%20all%20data%20in%20For%20loop%20in%20Excel%20VBA%20code%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2850029%22%20slang%3D%22en-US%22%3E%3CP%3EHello%2C%3CBR%20%2F%3EI%20need%20to%20pull%20the%20percentile%20ratio%20of%20three%20different%20data%20based%20on%20dates%20from%20a%20total%20of%2030%2B1%20sheets%20using%20a%20macro%20in%20Excel.%3CBR%20%2F%3EI%20am%20writing%20the%20code%20below%2C%20the%20code%20works%20in%20general%2C%20but%20there%20is%20a%20situation%20like%20this.%20Sometimes%2C%20for%20example%2C%20all%20the%20necessary%20data%20on%20the%2012th%20of%20the%20month%20have%20come%2C%20but%20two%20of%20the%20four%20data%20I%20pulled%20from%20the%20percentiles%20on%20the%2013th%20of%20the%20month%20have%20two%2C%20or%20there%20is%20no%20data%20on%20the%2013th.%3CBR%20%2F%3EI%20am%20getting%20run%20time%20error%209%20subscript%20out%20of%20range%20error.%3C%2FP%3E%3CP%3EHow%20can%20I%20fix%20this%20error%3F%20Can%20you%20help%20me%3F%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-visual-basic%22%3E%3CCODE%3ESub%20klavye_aykik_hesaplama_uretim_bazli()%0A%20%20%20%20%20%20%20%20%20%20%20%20'For%20i%20%3D%201%20To%20131'total%203%20data%3B%20keyboard%2C%20mouse%20and%20speaker%2C%20and%20this%20production%20percentage%20on%20the%20same%20day%2C%20a%20total%20monthly%20production%20data%20is%20available%20in%20the%20table%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20On%20Error%20Resume%20Next'when%20%C4%B1%20was%20a%20error%2C%20%C4%B1%20writen%20this%20code%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20For%20J%20%3D%203%20To%20262%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2201.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%221%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%221%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2202.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%222%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2203.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%223%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%223%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2204.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%224%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%224%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2205.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%225%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%225%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2206.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%226%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%226%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2207.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%227%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%227%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2208.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%228%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%228%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2209.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%229%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%229%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2210.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2210%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2210%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2211.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2211%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2211%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2212.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2212%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2212%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2213.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2213%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2213%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2214.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2214%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2214%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2215.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2215%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2215%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2216.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2216%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2216%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2217.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2217%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2217%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2218.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2218%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2218%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2219.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2219%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2219%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2220.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2220%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2220%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2221.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2221%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2221%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2222.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2222%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2222%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2223.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2223%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2223%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2224.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2224%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2224%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2225.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2225%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2225%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2226.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2226%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2226%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2227.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2227%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2227%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2228.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2228%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2228%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2229.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2229%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2229%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%202).Value%20%3D%20%2230.08.2021%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%203).Value%20%3D%20%22klavye%22%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%205).Value%20%3D%20ThisWorkbook.Sheets(%2230%20AGUSTOS%22).Range(%22F100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%206).Value%20%3D%20ThisWorkbook.Sheets(%2230%20AGUSTOS%22).Range(%22J100%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%207).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22C35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20ThisWorkbook.Sheets(%22Sheet8%22).Cells(J%2C%208).Value%20%3D%20ThisWorkbook.Sheets(%22AGUSTOS_ORT%22).Range(%22G35%22).Value%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20J%20%3D%20J%20%2B%201%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Next%20J%0A%20%20%20%20%20%20%20%20%20%20%20%20'i%20%3D%20i%20%2B%201%0A%20%20%20%20%20%20%20%20%20%20%20%20'Next%20i%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2850029%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Occasional Contributor

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
0 Replies