Új hozzászólás Aktív témák

• #52734 föccer nagyúr föccer #52733

  Új Válasz 2024-05-28 21:47:28 #52734

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  föccer

  nagyúr

  válasz föccer #52733 üzenetére

  Ez alapján meg fogod tudni csinálni.

  Sub Szorzas()
Dim Sor As Long
Dim Oszlop As Long
Dim S As String
Dim Szorzo As Double
S = "Munka2"
Szorzo = Sheets("Munka1").Range("A1").Value
For Sor = 1 To 20
  For Oszlop = 1 To 20
    Sheets(S).Cells(Sor, Oszlop).Value = Sheets(S).Cells(Sor, Oszlop).Value * Szorzo
  Next
Next
End Sub

Új hozzászólás Aktív témák