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

• #17482 m.zmrzlina senior tag Delila_1 #17481

  Új Válasz 2013-03-31 16:34:19 #17482

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #17481 üzenetére

  Nem igazán. Ez a kód:

  intSzamlalo = 1
  For Each wshMunka In ActiveWorkbook.Worksheets
  If wshMunka.Name <> "összesítő" Then
  wshOsszesito.Cells(1, intSzamlalo + 5) = format(Cells(1, intSzamlalo + 5), "yyyy.mm.dd")
  'wshOsszesito.Cells(1, intSzamlalo + 5).NumberFormat = "yyyy.mm.dd"
  wshOsszesito.Cells(1, intSzamlalo + 5).Value = wshMunka.Name
  intSzamlalo = intSzamlalo + 1
  End If
  Next

  Kikommentezve a tied alatt ott az én megoldásom de mindkettő ugyanúgy nem jó. A következő ciklussal szeretném kiértékelni az 1. sorban lévő dátum(nak látszó) értékeket:

  wshOsszesito.Range("F1").Select
  Do While ActiveCell.Offset(0, 1).Value <> ""
  If Val(ActiveCell.Offset(0, 1).Value) <> Val(ActiveCell.Value) + 1 Then
  intValasz = MsgBox("Az importált adat nem folytonos. Mégis folytatod?", vbYesNo)
  If intValasz = vbNo Then
  Application.DisplayAlerts = False
  ActiveWorkbook.Close
  Application.DisplayAlerts = True
  End
  End If
  End If
  ActiveCell.Offset(0, 1).Select
  Loop

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