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

• #33059 Delila_1 veterán mormota #33058

  Új Válasz 2016-10-26 09:25:02 #33059

  Ú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

  

  Delila_1

  veterán

  válasz mormota #33058 üzenetére

  Az Excel beállításainál, a bővítményeknél jelöld be az Analysis ToolPak, és az Analysis ToolPak - VBA bővítményeket. Valószínűleg ezek hiányoznak a hiba nélküli futáshoz.

• #33051 Delila_1 veterán mormota #33050

  Új Válasz 2016-10-25 14:38:01 #33051

  Ú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

  

  Delila_1

  veterán

  válasz mormota #33050 üzenetére

  Egy üres füzetben modulba másold be a makrót.

  Sub Szetcincalas()
Dim sor As Long, usor As Long
Dim WSF As Worksheet, WSS As Worksheet
Const utvonal = "D:\Tmp\" 'ide jön a saját útvonalad

On Error Resume Next
Workbooks.Open Filename:=utvonal & "Forrás.xlsx"
On Error GoTo 0

On Error Resume Next
Workbooks.Open Filename:=utvonal & "Sablon.xlsb"
On Error GoTo 0

Set WSF = Workbooks("Forrás.xlsx").Sheets(1) 'saját füzeted és lapod neve
Set WSS = Workbooks("Sablon.xlsb").Sheets(1) 'saját füzeted és lapod neve

usor = WSF.Range("F" & Rows.Count).End(xlUp).Row

WSS.Activate
For sor = 2 To usor
Cells(1, "C") = WSF.Cells(sor, "F")
Cells(2, "C") = WSF.Cells(sor, "G")
Cells(3, "C") = WSF.Cells(sor, "L")
Cells(4, "C") = WSF.Cells(sor, "H")

ActiveWorkbook.SaveAs Filename:=utvonal & Range("C3") & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Next

MsgBox "Kész"
End Sub

  Írd át a 3 jelzett sorban az útvonalat, a fájlneveket, és hogy hányadik lapon vannak az adatok a forrás és a sablon füzetekben. Adj rá mentést, Makrós.xlsm-ként.

  A makró megnyitja a sablon és forrás fájlokat, elvégzi a másolást, menti az aktuális C3 néven a fájlt.

• #33050 mormota senior tag mormota #33049

  Új Válasz 2016-10-25 13:33:32 #33050

  Ú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

  

  mormota

  senior tag

  válasz mormota #33049 üzenetére

  konkrétabban a forrásfile
  F2 celláját a sablonfile C1
  G2 -> C2
  L2 -> C3
  H2 -> C4 cellájába kellene másolni
  majd az egész kitöltött sablont el kéne menteni a C3-ban található néven

  újrakzdeni a 3. sorban ugyanígy az F,G,L és H oszlopokkal, stb stb stb, amíg van rekord a forrásfileban

• #32621 lappy őstag mormota #32618

  Új Válasz 2016-09-09 10:11:06 #32621

  Ú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

  

  lappy

  őstag

  válasz mormota #32618 üzenetére

  Darabteli és ha függvénnyel
  Megvizsgálod hogy az adott oszlopban van e "x" és annak megfelelően lehet színezni

• #32620 bsasa1 csendes tag mormota #32618

  Új Válasz 2016-09-09 10:10:10 #32620

  Ú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

  

  bsasa1

  csendes tag

  válasz mormota #32618 üzenetére

  Szia,

  feltételezve, hogy az értékelési oszlopok B:H-ig tartanak:
  =+VAGY($B2="x";$C2="x")
  =+VAGY($D2="x";$E2="x")
  =+VAGY($F2="x";$G2="x";$G2="x")

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