- Milyen billentyűzetet vegyek?
- Kormányok / autós szimulátorok topicja
- OLED TV topic
- Vezetékes FEJhallgatók
- HiFi műszaki szemmel - sztereó hangrendszerek
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Bluetooth hangszórók
- Milyen pendrive-ot vegyek?
- Amlogic S905, S912 processzoros készülékek
- AMD-s szerverprocesszorokhoz való, készre szerelt vízhűtés a SilverStone-tól
Hirdetés
-
Visions of Mana - Esélyes, hogy elkaszálták a PS4 verziót
gp Egyelőre hivatalos bejelentés még nem érkezett, mindössze egy apró szóbeszédnek lehetünk tanúi.
-
Még idén frissíti a ROG Ally-t az ASUS
ph A 2024-es verzió a Computexen jöhet, de hivatalosan még semmit sem tudni róla.
-
Spyra: akkus, nagynyomású, automata vízipuska
lo Type-C port, egy töltéssel 2200 lövés, több, mint 2 kg-os súly, automata víz felszívás... Start the epic! :)
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
-szabi-
őstag
Ez működik:
=ÁTLAGHA(G152:G166;">0")Kíváncsi lennék arra a gondolatmenetre, mikor kitalálták, hogy átlagolásnál ha gond van valamivel akkor azt ne kihagyja a függvény hanem inkább legyen #zéróosztó az eredmény.
üdv
szabi -
bteebi
veterán
Sziasztok!
Adott a képen látható táblázat. Adott háttérszínű (mondjuk piros, de igazából lényegtelen) cellához tartozó sorok, oszlopok neveit szeretném összefűzni. Az 5. sorban (2 cellánként) számok vannak "00" formátummal, a 6. sorban pedig ehhez tartozó azonosítók, az A oszlopban pedig időpontok. Tehát ha mondjuk a "G9" cella piros hátterű lenne, akkor az összefűzött név úgy nézne ki, hogy 03-B-2.00h. Ezeket az összefűzött neveket egy külön lapra ("osszeir") szeretném kigyűjteni egymás alá. Több munkalapon is van ilyen táblázat. Az általam írt makró valamiért sajnos nem működik. Egyelőre itt tartok:
Sub osszeir()
Dim lap%, i As Integer, cella As Range, tartomany As Range
i = 1
For lap% = 1 To Worksheets.Count
Sheets(lap%).Activate
If Sheets(lap%).Name <> "osszeir" Then
Set tartomany = ActiveSheet.UsedRange
For Each cella In tartomany
If cella.Color.Interior = 255 Then
Sheets("osszeir").Cells(i, 1).Value = ActiveSheet.Cells(5, Int(cella.Column / 2) * 2) & "-" & ActiveSheet.Cells(6, cella.Column) & "-" & ActiveSheet.Cells(cella.Row, 1) & "h"
i = i + 1
End If
Next cella
End If
Next lap%
End SubMeg tudnátok mondani, hogy mi lehet a gond? Valószínűleg a cella.Column nem (se) tetszik neki, viszont nincs ötletem, hogy hogy lehetne máshogy megírni. Nagyon köszönöm a segítségeteket!
[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
zhari
csendes tag
Sziasztok!
Végső célom az, hogy egy adott mappa almappáiból meghatározott nevű "cica_*.xlsx"-ek (* természetesen változik) állandó munkalapnevű (munka1) lapokról adott tartományokat egy új táblába egymás alá szeretnék másolni.
Van pár elvileg működő script amiket szeretnék egyesíteni, de nem jön össze.Sub makrófuttatás_almappákban()
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As WorkbookApplication.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = FalseOn Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "C:\...\egyéb\makrók\teszt"
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True
'Optional filter with wildcard
'.Filename = "cica*.xls"
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(filename:=.FoundFiles(lCount), UpdateLinks:=0)'DO YOUR CODE HERE
Range("A1").Select
ActiveCell.FormulaR1C1 = "=2"wbResults.Close savechanges:=False
Next lCount
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
MsgBox "kész"
End SubA fentivel az a bajom, hogy nem tudom meghatározni, hogy milyen nevű táblákkal dolgozzon és mintha nem jó táblákon indítaná a makrót.
Egy másik script ugyanerre:
Sub makrófuttatás_almappákban()
Dim folderPath As String
Dim filename As String
Dim wb As WorkbookfolderPath = "C:\...\egyéb\makrók\teszt" 'change to suit
If Right(folderPath, 1) <> "" Then folderPath = folderPath + ""
filename = Dir(folderPath & "cica2*.xls")
Do While filename <> ""
Application.ScreenUpdating = False
Set wb = Workbooks.Open(folderPath & filename)'Call a subroutine here to operate on the just-opened workbook
Range("A1").Select
ActiveCell.FormulaR1C1 = "=2"
filename = Dir
Loop
Application.ScreenUpdating = True
MsgBox "kész", vbInformation
End SubA fentiek valamelyikét szeretném egyesíteni a következő scripptel.
Sub Fésü()
Const utvonal = "C:\...\egyéb\makrók\teszt" 'Ezt írd át arra a mappára, ahol az xls-eid vannak
Dim FN As String, WB As WorkbookChDir utvonal
FN = Dir(utvonal & "D01_*.xls", vbNormal)
Do
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=FN
usor = Range("A65536").End(xlUp).Row 'Behívott füzet alsó soraWindows("02.xlsx").Activate
gy_usor = Range("A65536").End(xlUp).Row 'Gyűjtő füzet alsó soraWindows(FN).Activate 'Behívott füzet
Range(Cells(1, 1), Cells(usor, 12)).Copy 'A oszlop (1:4)Windows("02.xlsx").Activate 'Gyűjtő füzet
Cells(gy_usor, 1).Select
ActiveSheet.Paste
Windows(FN).Activate 'Behívott füzetActiveWorkbook.Save
ActiveWindow.Close
End If
FN = Dir()
Loop Until FN = ""
End SubRemélem érthető volt a problémám. Minden hozzászólást szívesen fogadok.
-
Geryson
addikt
Sziasztok! Lehet, hogy hülyeséget fogok kérdezni, de nem értek valamit.
A SZUMHATÖBB függvényt szeretném használni (sőt, használom elég régóta), de valahogy most elkezdett egy furcsaságot okozni. Ez a függvény úgy működik, ha a kritériumok mindegyike érvényesül, csak akkor hoz eredményt? Nekem az kellene, hogy ha az egyik kritérium megvan, akkor is hozza és akkor is ha pl. csak a másik.
Rinderkennzeichnungsfleischetikettierungsüberwachungsaufgabenübertragungsgesetz
-
cirkus
aktív tag
Ha egy keresett értékhez több találat van a halmazban, akkor van rá lehetőség, hogy azokat megjelenítse ?
Mindig az első talált értéket adja ki találatként.Bár kétlem mert egy cellába egy értéket tud megjeleníteni. -
vigyori78
őstag
Sziasztok.
Lenne egy pl: B1 és egy C1 cellám adott egy érték ami a 88% mondjuk 1000 van megadva és azt a B1 cellába kell beírni, tehát mit kéne bevésnem a C1 cellába ,hogy ott megjelenjen a 100% .
Köszi. -
PistiSan
addikt
Sziasztok!
Excelben lehet olyat, hogy az összes oszlop tartalmát az első oszlopba másolom egymás alá?Van egy jó nagy táblázatom, oszloponként rakás adattal, el szeretném távolítani az ismétlődéseket, sajnos oszlopon belül működik csak, több oszlopot kijelölve nem távolítja el.
-
Mittu88
senior tag
válasz PistiSan #21867 üzenetére
Nem tudom hány oszlop van, de ha csak pár (20-30), akkor pl. B1 cellára állva ha nyomsz egy CTRL+SHIFT+lefele nyíl kombót, vágólapra helyezed (ctrl+c), utána az A1-re kattintasz, nyomsz egy CTRL+lefele nyilat (utolsó kitöltött cellához ugrik), utána még egy lefele nyilat és ezután beilleszted (ctrl+v), akkor a B oszlop tartalma máris át van helyezve az A-ba.
És így tovább. Nagyon macerás?
Mert szerintem csak makróval lehet automatizálni, de nem érdemes programot írni pár oszlop miatt.
-
PistiSan
addikt
válasz Mittu88 #21868 üzenetére
Olyan 300 oszlopom van, kb 80-100 cellányi tartalommal.
Az oszlopon belül van jó néhány cella ami üres, ezért az CTRL+SHIFT Nyil problémás.Rögzítettem egy excel makrót, így néz most ki.
Sub Makró7()
'
' Makró7 Makró
'
'
Columns("P:P").Select
ActiveSheet.Range("$P$1:$P$101").RemoveDuplicates Columns:=1, Header:=xlNo
End SubHa átírom a "P" oszlopot mondjuk Q-ra, akkor szépen lefut ott is, de ez elég macerás, azt gondolnám hogy valami módon lehet egy változót megadni, ami mondjuk "LH"-ig megcsinálja ezt helyettem.
Tök jó volna, ha több oszlopot kijelölve is eltávolítaná az ismétlődéseket, de sajnos nem teszi.
[ Szerkesztve ]
-
Mittu88
senior tag
válasz PistiSan #21869 üzenetére
Egy ciklust rakj bele.
Ezt így be is másolhatod:Sub Makró7()
'
' Makró7 Makró
''
Dim i as integer 'Deklarálod, tehát létrehozod a változóti=0 'értékadás i változónak
For i = 1 to 200 '1-től 200 oszlopig vizsgálja, egyesével lépked
Columns( i ).Select 'i-edik oszlopot kiválasztja
ActiveSheet.Range( i ).RemoveDuplicates Columns:=1, Header:=xlNo 'ezt nem tudom működni fog-e
i = i + 1 'növeli 1-gyel i értékét, hogy a következő oszlopra lépjen
Next 'Ciklus végeEnd Sub
-
pigster
senior tag
válasz cirkus #21862 üzenetére
Ilyesmire gondoltál? (Google: "excel vlookup array multiple results")
http://www.get-digital-help.com/2009/10/25/how-to-return-multiple-values-using-vlookup-in-excel/
http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=119:vlookup-multiple-values-return-multiple-corresponding-values-for-one-lookup-value&catid=77&Itemid=473
FIGYELEM! A többszázezres Samsung okostévék kéretlen reklámokat tolnak az arcodba.
-
Delila_1
Topikgazda
válasz PistiSan #21869 üzenetére
Sub Egyformak_Torlese()
Dim oszlop As Integer, uoszlop As Integer
uoszlop = Range("A1").End(xlToRight).Column
For oszlop = 1 To uoszlop
Columns(oszlop).RemoveDuplicates Columns:=1, Header:=xlNo
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bteebi
veterán
válasz PistiSan #21877 üzenetére
Kiindulásnak ez bőven jó, de ez se rossz. Ez pedig egy nagyon rövid összefoglaló. Ha komolyabban is érdekel, akkor ezt a könyvet érdemes lehet beszerezned. Amúgy rengeteg segédlet van a neten (elsősorban angolul persze), többek között a Youtube-on is, érdemes keresgélni.
Erre esetleg lenne valakinek ötlete? Közel vagyok a megoldáshoz, de sajnos nem tudom, hogy hol van a hiba.
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
Nem tudtam megírni, egy régi kedves barátom segített ki.
A teszt makróban a .StartFolder = "F:\" sorban írd át a meghajtó nevét a sajátodra, majd a ciklusban a jelzett részbe tedd be a másolást, és a megnyitott fájl bezárását. Ezt makrót kell indítanod. Bekéri a keresendő fájlok nevének azt a részét, ami közös, a példád szerint ez valami. A státuszsorban megjelennek a mappák, almappák, ahol a valami kezdetű fájlneveket keresi.
Public Type TFindFile
StartFolder As String
FileName As String
Extension As String
Findings() As String
ErrorCount As Long
End TypeFunction FindFile(Args As TFindFile) As Boolean
Dim Folders() As String, CurrentFolder As String, FolderLevel As Long
Dim FN As String, LookUpName As String
Dim i As Long, Maxi As Long, Mini As Long, FileFound As Boolean
Dim Rng As Range
With Args
ChDrive Left(.StartFolder, 1)
If Right(.StartFolder, 1) <> "\" Then .StartFolder = .StartFolder & "\"
ReDim Folders(1)
Folders(1) = .StartFolder
FolderLevel = UBound(Split(.StartFolder, "\"))
LookUpName = .FileName & "." & .Extension
End With
ReDim Args.Findings(0)
Mini = 1
On Error GoTo hiba
Do
Maxi = UBound(Folders)
For i = Mini To Maxi
FN = Dir(Folders(i) & LookUpName, vbNormal)
While Not FN = ""
FileFound = True
ReDim Preserve Args.Findings(UBound(Args.Findings) + 1)
Args.Findings(UBound(Args.Findings)) = Folders(i) & FN
FN = Dir()
Wend
If UBound(Split(Folders(i), "\")) = FolderLevel Then
FN = Dir(Folders(i) & "*.*", vbDirectory)
While Not FN = ""
If (FN <> ".") And (FN <> "..") Then
If (GetAttr(Folders(i) & FN) And vbDirectory) <> 0 Then
FN = Folders(i) & FN & "\"
ReDim Preserve Folders(UBound(Folders) + 1)
Folders(UBound(Folders)) = FN
Application.StatusBar = FN
End If
End If
FN = Dir()
Wend
End If
DoEvents
Next
Mini = Maxi
FolderLevel = FolderLevel + 1
Loop Until Maxi = UBound(Folders)
If FileFound Then FindFile = True
Application.StatusBar = False
Exit Function
hiba:
Set Rng = Sheets("Hibák").Range("A" & Rows.Count).End(xlUp).Offset(1)
With Rng
.Value = Folders(i)
.Offset(, 1) = FN
.Offset(, 2) = Err.Description
.Offset(, 3) = Err.Number
End With
Args.ErrorCount = Args.ErrorCount + 1
Resume Next
End FunctionSub teszt()
Dim Args As TFindFile
Dim Siker As Boolean, i As Long
With Args
'**************** itt a saját meghajtód nevét írd be! *******
.StartFolder = "F:\"
'****************************************************************
.FileName = InputBox("fájlnév vagy része") & "*"
.Extension = "xlsx"
End With
Siker = FindFile(Args:=Args)
If Siker Then
For i = 1 To UBound(Args.Findings)
Workbooks.Open FileName:=Args.Findings(i)
'****************************************************************
' ide jön a másolás, majd a behívott fájl bezárása
'****************************************************************
Next
Else
MsgBox "Nincs találat."
End If
If Args.ErrorCount > 0 Then
MsgBox Args.ErrorCount & " probléma merült fel, lásd Hibák munkalap."
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz bteebi #21878 üzenetére
Sub osszeir()
Dim lap%, tartomany As Range, CV As Range
Dim oszlop As Integer, betu As String
For lap% = 1 To Sheets.Count
If Sheets(lap%).Name <> "osszeir" Then
Sheets(lap%).Select
Range("A5").Select
Set tartomany = Selection.CurrentRegion
For Each CV In tartomany
Debug.Print CV.Address
If CV.Interior.ColorIndex = 3 Then
betu = Cells(6, CV.Column)
If CV.Column Mod 2 = 0 Then
oszlop = CV.Column
Else
oszlop = CV.Column - 1
End If
Sheets("osszeir").Range(CV.Address) = "0" & Cells(5, oszlop) & "-" & _
betu & "-" & Cells(CV.Row, 1) & "h"
End If
Next
End If
Next
Sheets("osszeir").Select
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bteebi
veterán
válasz Delila_1 #21880 üzenetére
Nagyon köszönöm a segítséged, működik! Először amúgy valamiért nem akart menni, de aztán modulba raktam, és utána már lefutott. Kell neki a modul, vagy valami más gond lehetett először szerinted?
Az is fura amúgy, hogy ha a
Sheets(lap%).Select
Range("E10").Select
részt összevonom így: Sheets(lap%).Range("E10").Select, akkor megint csak nem megy ("Range osztály Select metódusa hibás"). Pedig szokott működni ez az összevonás...[ Szerkesztve ]
Cancel all my meetings. Someone is wrong on the Internet.
-
Delila_1
Topikgazda
válasz bteebi #21881 üzenetére
1. Modulba kell tenni. A laphoz rendelt modulok csak a saját lapjukon tudnak dolgozni, itt meg a ciklus az összes lapon dolgozik.
2. Ilyen a szintaktika. Szerintem is jobb lenne az, amit felvetettél, de így írták meg a fejlesztők.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
csenor
senior tag
Sziasztok!
Csináltam egy táblázatot leginkább a Ha függvény felhasználásával ami Vb-hez.
Beírom az eredményt és automatikusan tölti kifelé a táblázatot (győzelem, lőtt gól stb.).
Hogy tudnám megoldani, hogy az elért pont alapján automatikusan sorba rendezze a csapatokat (a sorokban lévő képletekkel együtt)!? -
DasBoot
aktív tag
Sziasztok! Mint általában sokan, Én is segítséget szeretnék kérni. Egyszer majd Én is tudok adni tanácsot . Sokat foglalkozok az MSExcel-el, de nem elegek az ismereteim, a problémám inkább haladó. Elkezdtem, de lett egy pont ahonnan nem tudok tovább lépni. Remélem majd a későbbiekben tud valaki segíteni. Egyelőre csak magát a függvényt másolom be, aztán majd leírom részlétesen a feladatot. Egy fontos dolog, hogy nem makróval szeretném megoldani. Íme a függvény, remélem nem elriasztó: =SZORZAT(2;PI();HA(SZÖVEG.E(G10);HA(JOBB(G10;1)="k";1000;HA(JOBB(G10;1)="M";1000000; ));G10)*HA(VAGY(G10="M";G10="k");1;ÉRTÉK(BAL(G10;HOSSZ(G10)-1))))
[ Szerkesztve ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
DasBoot
aktív tag
Sziasztok, ismét. No, megszületett a kis Jézus .
Elektronikai számítást szeretnék elvégezni, két szám összeszorzását. Egy állandó értéket, egy szorzóval, azaz prefixummal. Frekvenciát számolnék, de ez itt lényegtelen. Kétféle prefix van a „k” és az „M”. A „k”, kiló, 1000-ezerszeres, az „M”, mega, 1000000-szoros szorzást jelent, de gondolom ezt tudjátok, csak pontosan szeretném leírni a tényeket. Mindenképpen úgy akarom, hogy így legyen beírva: 1,234k; 34,915M. Így működik is, még a tizedesvesszővel együtt is.
A probléma a következő. Amennyiben semmilyen szorzót nem írok az állandó után, igencsak elszámolja, nem az az eredmény jön ki, mint aminek kellene. Vannak feltevéseim, hogy miért, de itt kellene a haladó segítség .
Az egészet egy darts számoló alapján készítettem (T, D..), gyakorlatilag ott is egy számot szoroztak egy „betűvel”, aminek megvolt az értéke. Remélem érthetően leírtam, ha szükséges elküldöm magát a táblát is.=SZORZAT(2;PI();HA(SZÖVEG.E(G10);HA(JOBB(G10;1)="k";1000;HA(JOBB(G10;1)="M";1000000 );G10)*HA(VAGY(G10="M";G10="k");1;ÉRTÉK(BAL(G10;HOSSZ(G10)-1))))
Az 1000000 után nincsen szóköz, csak a pontosvessző-zárójellel-t szmájli-nak vette.
Az elején van még egy 2pi-szeres szorzó is.Valójában a függvény egyes részleteit nem értem, de éppen ezért kérdezek, szerintem ott akadhattam el, amit nem értek, de ez most lényegtelen. A számolás működjön .Köszönöm a segítséget, üdv.: Yoe
[ Szerkesztve ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
gyu84
tag
Sziasztok!
Kis segítségre lenne szükségem Excellel kapcsolatban, a probléma egyszerű, megoldást viszont még nem sikerült rá találnom.
Adott egy összeg amit arányosan felosztok, és %-ban adom meg az arányokat, (pl 15%-25%-40%-20%). Megoldható-e hogy ha változtatok az egyik arányon, akkor változzon vele a többi is, egyenlő arányban növelje vagy csökkentse a többi számot, az összeg nyilván mindig 100% lehet csak.Segítséget előre is köszönöm!
-
Delila_1
Topikgazda
válasz DasBoot #21890 üzenetére
Esetleg így
=HA(ÉS(JOBB(G10;1)<>"k";JOBB(G10;1)<>"M");"Hol a mértékegység?!";HA(JOBB(G10;1)="k";2*PI()*BAL(G10;HOSSZ(G10)-1)*10^3;2*PI()*BAL(G10;HOSSZ(G10)-1)*10^6))
Szerk.: feltételezve, hogy a G10 cellában a "k", vagy "M" előtt létezik egy szám.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
DasBoot
aktív tag
válasz Delila_1 #21892 üzenetére
Húúúú, ez most alaposan megzavart. Mindjárt beírom, aztán tanulmányozom. Addig is: mindig van, mindig kell, hogy legyen szám a szorzó előtt. Mit értesz "Hol a mértékegység" alatt, egyelőre nincsen mértékegység, jelen esetben hertz.
Gyorsan kipróbáltam. Nincsen betű, akkor írja a "Hol a mértékegység?", erre azért gondoltam, hogy így lesz.[ Szerkesztve ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
zhari
csendes tag
válasz Delila_1 #21879 üzenetére
Köszönöm. Szuperül működik.
Másolás résszel még gondban vagyok kb így nézne ki szerintem, de nem jó a beillesztésnél:
...
Sheets("Munka1").Select
Range("A1:L27").Select
Selection.Copy
ActiveWorkbook.Save
ActiveWindow.Close
Windows("02.xlsm").Activate 'gyűjtő füzet
gy_usor = Range("A65536").End(xlUp).Row 'Gyűjtő füzet alsó sora
Cells(gy_usor, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
.... -
Delila_1
Topikgazda
Küldöm a másolással, és értékbeillesztéssel kiegészített teszt makrót. Írd át a meghajtó betűjelét!
Sub teszt()
Dim Args As TFindFile, usor As Long, WS As Worksheet
Dim Siker As Boolean, i As Long
With Args
'**************** itt a saját meghajtód nevét írd be! *******
.StartFolder = "F:\"
'****************************************************************
.FileName = InputBox("fájlnév vagy része") & "*"
.Extension = "xlsx"
End With
Siker = FindFile(Args:=Args)
Set WS = ActiveWorkbook.Sheets("Munka1")
If Siker Then
For i = 1 To UBound(Args.Findings)
usor = WS.Range("A" & Rows.Count).End(xlUp).Row + 1
Workbooks.Open FileName:=Args.Findings(i)
Range("Munka1!A1:L7").Copy
WS.Range("A" & usor).PasteSpecial xlPasteValues
ActiveWorkbook.Close
Next
Else
MsgBox "Nincs találat."
End If
If Args.ErrorCount > 0 Then
MsgBox Args.ErrorCount & " probléma merült fel, lásd Hibák munkalap."
End If
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz csenor #21885 üzenetére
Szia!
Ehhez csupán rá kell kattintanod a sorbarendezés ikonra. Előbb állj be abba az oszlopba, amelyik szerint rendezni akarod a tartományodat. NEM KELL KIJELÖLNI az oszlopot, csak benne állj.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest