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

• #19087 Mutt senior tag 81lendo$ #19077

  Új Válasz 2013-09-27 16:30:17 #19087

  Ú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

  

  Mutt

  senior tag

  válasz 81lendo$ #19077 üzenetére

  Szia,

  ...El tudnád küldeni, a kódját, az "ExportList" gombnak?
  Nincs jelszavazva, Alt+F11-el te is megtudod nézni alaposan, a kód részlet pedig ez:

  Private Sub bExportList_Click()
  Dim i As Integer
  Dim vHits As Integer
  Dim arryHits()
  Dim wsCel As Workbook
  
  'találatok száma
  vHits = 0
  
  'végigmegyünk a lista elemein
  For i = 0 To lbList.ListCount - 1
  'amely ki van jelölve azt egy találati tömbbe tesszük
  If lbList.Selected(i) Then
  'találatok számát növeljük
  vHits = vHits + 1
  'a találati tömböt átméretezzük hogy fogadja az új elemet
  ReDim Preserve arryHits(1 To vHits)
  'betöltjük az új elemet
  arryHits(vHits) = lbList.List(i)
  End If
  Next i
  
  If vHits Then
  'új fájl létrehozása
  Set wsCel = Workbooks.Add
  wsCel.Sheets(1).Range("A1") = "Munkalap neve"
  For i = 1 To vHits
  'kért adatok kiiratása
  wsCel.Sheets(1).Cells(i + 1, "A") = arryHits(i)
  wsCel.Sheets(1).Cells(i + 1, "B") = ThisWorkbook.Sheets(arryHits(i)).Range("E2")
  wsCel.Sheets(1).Cells(i + 1, "C") = ThisWorkbook.Sheets(arryHits(i)).Range("K27")
  wsCel.Sheets(1).Cells(i + 1, "D") = ThisWorkbook.Sheets(arryHits(i)).Range("K28")
  Next i
  End If
  
  'form bezárása
  Unload Me
  
  End Sub

  ...- Ilyenkor amikor konkrét cellát viszel át egy másik fájlba, akkor fomátuma is átmegy. (pl.: pénznem [Forint], [Euro])?

  A sima Copy nem viszi át VBA-ban, így nekem sem fogja a formázást másolni, de természetesen meg lehet csinálni (PasteSpecial).

  ...- Ugye én nem formon, hanem Munkalapon csináltam, de elvileg ott is működik ez a megoldás?
  Ha ActiveX vezérlőket használsz a lapon, akkor műkődhet. A gond azonban, hogy ezek a vezérlők egymástől függetlenül fognak létezni, ezért globális változók kellenek az adatok cseréjéhez.

  üdv.

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