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

• #8002 Oly senior tag

  Ú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

  senior tag

  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.

  SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

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