1. 1.
    -2
    Sub generationchange()
    For i = 4 To 2
    ActiveSheet. Cells(i, 2).Value = "gibertmeyigibenadam"
    ···
   tümünü göster