-
IT café
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
-
JagdPanther
aktív tag
Sziasztok!
Szeretnék segítséget kérni az alábbi probléma megoldásához.
Adott egy 50 értékből álló oszlop, és szeretném kiírni egy külön cellába annak a cellának a sorszámát, aminek az értéke nagyobb mint egy megadott érték. Nem túl bonyolult, de nekem mégse sikerül összehoznom. -
JagdPanther
aktív tag
válasz perfag #12095 üzenetére
elnézést ha érthetetlenül fogalmaztam. 50 cellám van egy oszlopban, lefelé monoton növő értékekkel. Ezek közül a cellák közül szeretném kiírni annak a cellának a sorszámát (egy különálló cellába), ahonnan kezdődően (lefelé) már nagyobb értékek szerepelnek egy megadott értéknél.
-
JagdPanther
aktív tag
Sziasztok!
Segítsetek légyszi, a következőre szeretnék makrót írni.Ráállok egy cellára, és az adott sor 4. 5. és 10. cellájában levő szöveg után "Alt+Enter"-el egy-egy új sort beszúrni.
Valahogy sehogy sem tudom megoldani, hogy a meglévő szöveg megmaradjon, és csak egy új sorral gazdagodjon a cella.
-
JagdPanther
aktív tag
Sziasztok!
Légyszi segítsetek egy makró megírásában, magyar nyelvű Office 2010, (angol) VBA 7.0 környezetben. A feladat a következő.
Az Ebay nevű lapon kijelölök egyetlen, tetszőleges cellát. Ebben a sorban, bizonyos oszlopokban levő cellák értékét át akarom másolni a Számla nevű lapon, meghatározott cellákba. A cellamásolások egész pontosan az alábbiak:
(kijelölési hely -> beillesztési hely)
E oszlop -> B12
F oszlop -> B28
J oszlop -> H12
N oszlop -> D10A lényeg, hogy az Ebay lapon egy tetszőleges cella kijelölése határozza meg, hogy a sor E, F, J és N celláját másoljam a Számla fülre.
-
JagdPanther
aktív tag
Sziasztok!
Van egy elég bonyolult táblázatom, függvényekkel keresztbe-kasul, összesen 4 bemenő változóval (egymástól függetlenek).
Lehet-e olyat csinálni, hogy az egyik változónak megadok egy intervallumot, mondjuk 1 és 50 között,
és egy adott, sok-sok függvénnyel kiszámolt cella értékét egy másik fülön, egyszerűen felsorolja és/vagy kirajzolja nekem diagramban?
Arra lenne ez jó, hogy az értékcella változását (a megadott bemenő változó függvényében) vizsgálhassam, és megtaláljam a minimumát/maximumát.Remélem elég bonyolultan sikerült megfogalmaznom a problémát.
-
JagdPanther
aktív tag
sziasztok!
Alábbi kóddal összemásolok több, azonos struktúrájú file-ban lévő sorokat egy (ugyanolyan struktúrájú) gyűjtő file-ba, soronként egymás alá. A kód lefuttatásakor mindig felülírja a korábban a gyűjtőfile-ban szereplő sorokat.
Ezen szeretnék úgy változtatni, hogy a kód újrafuttatásakor mindig a legalsó, azaz üresen marad sorba kezdje el másolni a sorokat.
Légyszi segítsetek, nem jövök rá hogyan írjam át!Sub MergeSelectedWorkbooks()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim SelectedFiles() As Variant
Dim NRow As Long
Dim FileName As String
Dim NFile As Long
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
' Create a new workbook and set a variable to the first sheet.
Set SummarySheet = Sheets("Sheet1")
' Modify this folder path to point to the files you want to use.
FolderPath = "C:\Users\pc\Sajat_tarhely\Munka\Karbantartás\Gyűjtőszámlák"
' Set the current directory to the the folder path.
ChDrive FolderPath
ChDir FolderPath
' Open the file dialog box and filter on Excel files, allowing multiple files
' to be selected.
SelectedFiles = Application.GetOpenFilename( _
filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)
' NRow keeps track of where to insert new rows in the destination workbook.
NRow = 4
' Loop through the list of returned file names
For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)
' Set FileName to be the current workbook file name to open.
FileName = SelectedFiles(NFile)
' Open the current workbook.
Set WorkBk = Workbooks.Open(FileName)
' Set the source range to be A6 through last row.
Dim LastRow As Long
LastRow = WorkBk.Worksheets(1).Cells.Find(What:="*", _
After:=WorkBk.Worksheets(1).Cells.Range("A1"), _
SearchDirection:=xlPrevious, _
LookIn:=xlValues, _
SearchOrder:=xlByRows).Row
Set SourceRange = WorkBk.Worksheets(1).Range("A6:V" & LastRow)
' Set the destination range to start at column A and be the same size as the source range.
Set DestRange = SummarySheet.Range("A" & NRow)
Set DestRange = DestRange.Resize(SourceRange.Rows.Count, _
SourceRange.Columns.Count)
' Copy over the values from the source to the destination.
DestRange.Value = SourceRange.Value
' Increase NRow so that we know where to copy data next.
NRow = NRow + DestRange.Rows.Count
' Close the source workbook without saving changes.
WorkBk.Close savechanges:=False
Next NFile
End Sub -
JagdPanther
aktív tag
Sziasztok,
kérem segítsetek alábbiakban!
Cél: Excel lista alapján [kép]
egyetlen címzettnek elküldeni 5 db levelet Outlook-kal úgy, hogy az 5 db levélnek
- a címzettje ugyanaz, A2 : A6 szerinti cím
- a tárgya a B2 : B6 oszlop szerinti alfanumerikus karakterek
- a szöveg a C2 : C6 szerinti szövegAlábbi kód van meg, de "Runtime Error 424: Object required" hibát dob.
Sub SendEmail()
Dim subject_line As String
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Set olMail = olApp.CreateItem(olMailItem)
olMail.To = "proba@proba.hu"
olMail.Subject = subject_line
olMail.Body = "mail_body"
olMail.Send
row_number = 2
Do
DoEvents
row_number = row_number + 1
subject_line = Lista1.Range("B" & row_number)
Loop Until row_number = 6
End Subköszi a segítséget!
[ Szerkesztve ]
-
JagdPanther
aktív tag
Sziasztok
van egy ilyen vba kódom, még elég gyorsan fut de azt hiszem a jövőben egy több száz soros táblában be fog lassulni.
Hogyan lehet átírni úgy, hogy a funkcionalitás megmaradjon, de kevesebb számítási kapacitás kelljen neki?
A táblázat egyébként így néz ki.Sub Ma()
Sheets("Bevitel").Range("B6").Select
ActiveCell.EntireRow.Insert Shift:=xlDown
ActiveCell.Value = Date
Range("E6").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$F$2:$F$8"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("F6").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Adat!$L$2:$L$3"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Range("C7:I7").Select
Selection.Copy
Range("C6:I6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J7").Select
Selection.Copy
Range("J6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C6").Select
ActiveCell.Select
End Sub
Sub Megse()
Rows(6).Delete
End Sub
Sub Hibakiadva()
Sheets("Bevitel").Range("H6").Select
ActiveCell.Value = Date
End Sub
Sub Hibaelvegezve()
ActiveCell.Select
ActiveCell.Value = Date
End Sub
Új hozzászólás Aktív témák
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen