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

• #12641 motinka tag Delila_1 #12636

  Új Válasz 2012-01-13 16:00:22 #12641

  Ú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

  

  motinka

  tag

  válasz Delila_1 #12636 üzenetére

  köszönöm Delila!

  az alábbi működik:

  Set WS2 = Sheets("HÓNAP")
  usorH = WS2.Range("A1").End(xlDown).Row
  sor = 2 f = False

  tehát itt átírtam az 1-est 2-re és az első sort így nem bántja csak a 2 sortól írja az adatokat.
  sajnos volna még egy problémám, a HÓNAP fülről csak 3 oszlopból hoznék át adatot, azaz csak 3 sor beírását kelle törölni.
  ezt én azt gondolom itt lehetne átírni,

  If f = False Then
  Range("A2") = "Nincs adat erre a napra"
  Range("C1:IV1").Delete
  End If

  de ez nem működik:

  If f = False Then
  Range("A2") = "Nincs adat erre a napra"
  Range("B25000").Delete
  End If

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