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

• #8002 Oly őstag

  Új Válasz 2010-08-26 18:08:03 #8002

  Ú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

  

  Oly

  őstag

  Sziasztok

  Van egy ilyen macro-m:

  Private Sub CommandButton1_Click()
  sh = Range("J1")
  n = 1 + Range("A3")
  Sheets(sh).Cells(n, 1) = Range("a3")
  Sheets(sh).Cells(n, 2) = Range("b3")
  Sheets(sh).Cells(n, 3) = Range("c3")
  Sheets(sh).Cells(n, 4) = Range("d3")
  Sheets(sh).Cells(n, 5) = Range("e3")
  Sheets(sh).Cells(n, 6) = Range("f3")
  Sheets(sh).Cells(n, 7) = Range("g3")
  Sheets(sh).Cells(n, 8) = Range("h3")
  Sheets(sh).Cells(n, 9) = Range("i3")
  Sheets(sh).Cells(n, 10) = Now()
  Range("A3") = 1 + Range("a3")
  End Sub
  A J1-ből veszi a Sheet nevét. Hogyan lehetne azt megoldani, hogy hozza is létre a Sheetet, ha a nincs még ilyen névvel. Ha van ilyen névvel, akkor meg találja meg és írja be az adatokat.

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