Informatika és tudomány

teszt
  • metaljesus
    #1855
    Sub proba()
    Dim szoveg As String
    szoveg = ""
    For x = 5 To 50
    szoveg = szoveg & Sheet1.Cells(x, 2) & ", "
    Next x
    Sheet1.Cells(3, 2) = szoveg
    End Sub

    vagy sheeh1 helyett munka1, és a B5:B50-ben legyenek a cuccok