- Megpróbálják a spanyolok: megvédenék a gyerekeket a közösségi médiától
- Nem bírják kiszolgálni az AI energiaigényét
- Kanada feltalálta a Netflix-adót
- Tombol az AI-láz: az NVIDIA már értékesebb, mint az Apple
- DIGI internet
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- DIGI kábel TV
- Musk átirányította a Teslának szánt AI-chipeket
- Starlink
- Windows 7
-
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
-
Delila_1
Topikgazda
válasz huliganboy #26643 üzenetére
Örülök, hogy sikerült, szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
itanczos
senior tag
Sziasztok!
Ez nem annyira mély víz, de elakadtam.
Hogyan tudnék egy olyan táblázatban az fkeres függvénnyel keresni, ahol a kulcs mezőben a szám helyett ez van: ="szám"
???
Vagyis a 38 helyett ="38"
A fő táblázatban a kereséső mezőben viszont a szám van.Használd a keresőt! | iPhone 13 Pro 256GB | 3D: Tevo Tarantula | NAS: HP MicroServer Gen8 - Proxmox/XPenology | Okos otthon: HomesAssistant - HomeKit - Hirdetéseim: https://hardverapro.hu/aprok/hirdeto/itanczos/index.html
-
zhari
csendes tag
válasz Fferi50 #26648 üzenetére
Köszi.
Ezt találtam még a neten de nem akar működni a szerző és az tulaj bejegyzés kinyerése. Meg tudnátok nézni h mi baja lehet?
Előre is köszi
Option Explicit
Public x()
Public i As Long
Public objShell, objFolder, objFolderItem
Public FSO, oFolder, Fil
Sub MainExtractData()
Dim NewSht As Worksheet
Dim MainFolderName As String
Dim TimeLimit As Long, StartTime As Double
ReDim x(1 To 65536, 1 To 11)
Set objShell = CreateObject("Shell.Application")
TimeLimit = Application.InputBox("Please enter the maximum time that you wish this code to run for in minutes" & vbNewLine & vbNewLine & _
"Leave this at zero for unlimited runtime", "Time Check box", 0)
StartTime = Timer
Application.ScreenUpdating = False
MainFolderName = BrowseForFolder()
Set NewSht = ThisWorkbook.Sheets.Add
x(1, 1) = "Path"
x(1, 2) = "File Name"
x(1, 3) = "Last Accessed"
x(1, 4) = "Last Modified"
x(1, 5) = "Created"
x(1, 6) = "Type"
x(1, 7) = "Size"
x(1, 8) = "Owner"
x(1, 9) = "Author"
x(1, 10) = "Title"
x(1, 11) = "Comments"
i = 1
Set FSO = CreateObject("scripting.FileSystemObject")
Set oFolder = FSO.GetFolder(MainFolderName)
'error handling to stop the obscure error that occurs at time when retrieving DateLastAccessed
On Error Resume Next
For Each Fil In oFolder.Files
Set objFolder = objShell.Namespace(oFolder.Path)
Set objFolderItem = objFolder.ParseName(Fil.Name)
i = i + 1
If i Mod 20 = 0 And TimeLimit <> 0 And Timer > (TimeLimit * 60 + StartTime) Then
GoTo FastExit
End If
If i Mod 50 = 0 Then
Application.StatusBar = "Processing File " & i
DoEvents
End If
x(i, 1) = oFolder.Path
x(i, 2) = Fil.Name
x(i, 3) = Fil.DateLastAccessed
x(i, 4) = Fil.DateLastModified
x(i, 5) = Fil.DateCreated
x(i, 6) = Fil.Type
x(i, 7) = Fil.Size
x(i, 8) = objFolder.GetDetailsOf(objFolderItem, 8)
x(i, 9) = objFolder.GetDetailsOf(objFolderItem, 9)
x(i, 10) = objFolder.GetDetailsOf(objFolderItem, 10)
x(i, 11) = objFolder.GetDetailsOf(objFolderItem, 14)
Next
'Get subdirectories
If TimeLimit = 0 Then
Call RecursiveFolder(oFolder, 0)
Else
If Timer < (TimeLimit * 60 + StartTime) Then Call RecursiveFolder(oFolder, TimeLimit * 60 + StartTime)
End If
FastExit:
Range("A:K") = x
If i < 65535 Then Range(Cells(i + 1, "A"), Cells(65536, "A")).EntireRow.Delete
Range("A:K").WrapText = False
Range("A:K").EntireColumn.AutoFit
Range("1:1").Font.Bold = True
Rows("2:2").Select
ActiveWindow.FreezePanes = True
Range("a1").Activate
Set FSO = Nothing
Set objShell = Nothing
Set oFolder = Nothing
Set objFolder = Nothing
Set objFolderItem = Nothing
Set Fil = Nothing
Application.StatusBar = ""
Application.ScreenUpdating = True
End Sub
Sub RecursiveFolder(xFolder, TimeTest As Long)
Dim SubFld
For Each SubFld In xFolder.Subfolders
Set oFolder = FSO.GetFolder(SubFld)
Set objFolder = objShell.Namespace(SubFld.Path)
For Each Fil In SubFld.Files
Set objFolder = objShell.Namespace(oFolder.Path)
'Problem with objFolder at times
If Not objFolder Is Nothing Then
Set objFolderItem = objFolder.ParseName(Fil.Name)
i = i + 1
If i Mod 20 = 0 And TimeTest <> 0 And Timer > TimeTest Then
Exit Sub
End If
If i Mod 50 = 0 Then
Application.StatusBar = "Processing File " & i
DoEvents
End If
x(i, 1) = SubFld.Path
x(i, 2) = Fil.Name
x(i, 3) = Fil.DateLastAccessed
x(i, 4) = Fil.DateLastModified
x(i, 5) = Fil.DateCreated
x(i, 6) = Fil.Type
x(i, 7) = Fil.Size
x(i, 8) = objFolder.GetDetailsOf(objFolderItem, 8)
x(i, 9) = objFolder.GetDetailsOf(objFolderItem, 9)
x(i, 10) = objFolder.GetDetailsOf(objFolderItem, 10)
x(i, 11) = objFolder.GetDetailsOf(objFolderItem, 14)
Debug.Print x(i, 1), x(i, 2), x(i, 11)
Else
Debug.Print Fil.Path & " " & Fil.Name
End If
Next
Call RecursiveFolder(SubFld, TimeTest)
Next
End Sub
Function BrowseForFolder(Optional OpenAt As Variant) As Variant
'Function purpose: To Browser for a user selected folder.
'If the "OpenAt" path is provided, open the browser at that directory
'NOTE: If invalid, it will open at the Desktop level
Dim ShellApp As Object
'Create a file browser window at the default folder
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
'Set the folder to that selected. (On error in case cancelled)
On Error Resume Next
BrowseForFolder = ShellApp.self.Path
On Error GoTo 0
'Destroy the Shell Application
Set ShellApp = Nothing
'Check for invalid or non-entries and send to the Invalid error
'handler if found
'Valid selections can begin L: (where L is a letter) or
'\\ (as in \\servername\sharename. All others are invalid
Select Case Mid(BrowseForFolder, 2, 1)
Case Is = ":"
If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
Case Is = "\"
If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
Case Else
GoTo Invalid
End Select
Exit Function
Invalid:
'If it was determined that the selection was invalid, set to False
BrowseForFolder = False
End Function[ Szerkesztve ]
-
Delila_1
Topikgazda
-
itanczos
senior tag
-
Delila_1
Topikgazda
Az Fferi által említett makró:
Sub Legnagyobb()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
Cells(sor - 1, 1) = "" Then
Rows(sor - 1).EntireRow.Delete
End If
Next
End SubAz első oszlopban többször szereplő programneveket gyomlálja ki.
Nem említetted, hogy vannak-e üres sorok a tartományban. Beleírtam, hogy azokat is törölje.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
azopi74
addikt
válasz Delila_1 #26654 üzenetére
Hehe, ez jó trükk,
Eddig mindig vagy így csináltam:=FKERES(SZÖVEG(cellahivatkozás;"#");tartomány;oszlop; tartományban_keres)
vagy fordított logikával tömbfüggvényesen így:
{=FKERES(cellahivatkozás;ÉRTÉK(tartomány);oszlop; tartományban_keres)}
De az eddig eszembe se jutott, hogy úgy alakítsam röptében szöveggé a keresett értéket, hogy egyszerűen egy üres sztringet hozzáfűzök a számhoz
-
zhari
csendes tag
Ebben esetleg tud valaki segíteni?
Szerintem ezekkel a sorokkal van baj:
x(i, 9) = objFolder.GetDetailsOf(objFolderItem, 9)
x(i, 10) = objFolder.GetDetailsOf(objFolderItem, 10)Lehet ezek csak korábbi Excel verzióban működnek?
AZ új már máshol tárolja szerzőt és az utolsó módosítót? -
azopi74
addikt
Szia.
Nem írtad milyen nyelvű excel (és milyen verzió), de angol 2010-ben és 2013-ban:
File/Options/Advanced és tedd be a pipát az "Enable fill handle and cell drag and drop "
magyarban fájl/beállítások/speciálisban keresd (kitöltőjel használatának engedélyezése)
2007-ben az office menüben van valahol.
-
-
Delila_1
Topikgazda
Természetesen.
Sub Legnagyobb()
Dim sor As Long, usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
For sor = usor To 2 Step -1
If Len(Cells(sor, 1)) = 8 Then
If Left(Cells(sor, 1), 6) = Left(Cells(sor - 1, 1), 6) Or _
Cells(sor - 1, 1) = "" Then
Rows(sor - 1).EntireRow.Delete
End If
End If
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.
-
Thrawnad
senior tag
Van egy olyan problémám, hogy egy excel táblában volt egy pár feltételes formázás.
Másolgatták a cellákat ide oda, így a formázás is sokszorozódott.
Szeretném az összest kitörölni egyszerre, hogy az eredetit vissza tudjam tenni.
Van rá valami mód?Ui: Csak én lehetek ennyire béna megtaláltam közben
Thrawnad
[ Szerkesztve ]
Hardver hibára ritkán van jó szoftver...
-
huliganboy
addikt
válasz Delila_1 #26668 üzenetére
Szia!
A pár nappal ezelőtti makrót amit készítettél az egyik barátommal továbbvittük kicsit....
A kérdése maz lenn, hogy az üres sorokat, hogyan tudnánk kiszedni.....Köszönöm!
Sub ido()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 3 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 3) = Left(Cells(sorInnen, oszlop), 5)
Sheets("Munka5").Cells(sorIde, 5) = Right(Cells(sorInnen, oszlop), 5)
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
Call helyszin
End Sub
Sub helyszin()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 4 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 7) = Cells(sorInnen, oszlop)
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
Call nap
End Sub
Sub nap()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Dim hossz As Long
Sheets("Munka2").Select
sorInnen = 1: sorIde = 2: usor = Range("b" & Rows.Count).End(xlUp).Row
For sorInenn = 3 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 2) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde, 4) = Cells(sorInnen, oszlop)
sorIde = sorIde + 1
Next
Next
Call edzo
End Sub
Sub edzo()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 3 To usor Step 4
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 1, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 2, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 3, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 4, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 5, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 6, 1) = Cells(sorInnen, oszlop)
Next
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde + 7, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 8, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 9, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 10, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 11, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 12, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 13, 1) = Cells(sorInnen, oszlop)
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
Next
Call korosztaly
End Sub
Sub korosztaly()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 5 To usor Step 4
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 1, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 2, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 3, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 4, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 5, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 6, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
Next
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 8, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 9, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 10, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 11, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 12, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 13, 6) = Cells(sorInnen, oszlop)
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
End Sub -
Delila_1
Topikgazda
válasz huliganboy #26670 üzenetére
Ha arra gondolsz, hogy a Munka2 lap üres sorait törölnéd, akkor
Sub UresTorles()
Dim usor As Long, sor As Long
Sheets("Munka2").Select
usor = Range("B" & Rows.Count).End(xlUp).Row
For sor = usor To 3 Step -1
If Application.WorksheetFunction.CountA(Range("B" & sor & ":" & "H" & sor)) = 0 Then
Rows(sor).EntireRow.Delete
End If
Next
End SubA transzponálós makrókban a for-next ciklus for sorában a Step 2 adja meg, hogy a Munka2 lap minden második sorában lévő adatok másolódjanak át egy másik lapra. Vagy ezt a step 2-t töröld, és indíts a sortörléssel, vagy a sortörlést a transzponálások után végezd el.
Programozó: 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 huliganboy #26670 üzenetére
Az időt, helyszín, stb-t egyetlen ciklusban is másolhatnád, nem kellenek külön makrók hozzá.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
sedyke
tag
Sziasztok!
Van egy excel file-om, 6.5MB az egesz.
Van benne korulbelul 10-12 munkalap, ebbol kb. 8 Pivot tabla. Nemi keplet is, de nem sok, mert miutan osszegyujtottem a szukseges adatokat, atalakitom az eredmenyt ertekke.
A problemam az, hogy a fajl nagyon belassult. A megnyitasa pl. eltart 5 percig minimum.
Van otletetek, hogy mitol lehet? Mit tudnek csinalni vele?
Az adatmennyiseg, es a tablak szama folyamatosan novekszik, igy egyre rosszabb a helyzet.Elore is koszonom a valaszokat!
-
-
azopi74
addikt
válasz sedyke #26680 üzenetére
Azt javaslom, szerintem írd felül az üzletileg kritikus (titkos) részeket, és töltsd fel valahova a felhőbe, akkor valószínűleg tudunk segíteni. Lehetnek egész oszlopra hivatkozó függvények, telehányt Name Manager (névkezelő) , vagy akármi. Látatlanban nehéz megmondani.
-
-
Delila_1
Topikgazda
Miért nem eseményvezérelten íratod be?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(Target.Row, 5) = ThisWorkbook.BuiltinDocumentProperties("Last Author")
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.
-
szami777
addikt
Sziasztok, a segítségeteket kérném.
Kérdőíves adatokból kéne kördiagramot csináljak, de sehogy se sikerül.
Egy oszlop van, tehát nem több, 1 kérdés, amire 80 ember 6 különböző szöveges választ adott. Ezt szeretném körön ábrázolni, hogy ki melyik választ választotta, milyen arányban, de sehogy sem sikerül. Neten utánaolvastam, azt írták, hogy ezt kimutatás diagrammal kéne, de egyszerűen nem tudom megcsinálni, mert nem akar megjelenni semmiféle diagram. Valakinek van ötlete?
Lőttem egy képet róla, látható jobb oldalt, ha bepipálom kis fekete kockát jobb oldalt és behúzom a 4 közül az egyikbe, akkor se történik semmi, biztos én csinálok rosszul valamit, nem értek hozzá sajnos.
(2007-es magyar nyelvű excel)
Előre is köszönöm.[ Szerkesztve ]
“So do all who live to see such times but that is not for them to decide. All we have to decide is what to do with the time that is given us.” ///// Old nick ->xsanyi77
-
Fferi50
őstag
válasz szami777 #26686 üzenetére
Szia!
Az értékek területére is be kellene vinni az egyetlen meglevő meződet (mármint az A oszlopot), úgy hogy a darabszám függvénnyel legyen összesítve. (Mivel most csak sorcimkéid vannak, hozzá tartozó adatok pedig nincsenek, ezért nem tud megjeleníteni semmit a diagram.)
Üdv.
[ Szerkesztve ]
-
szami777
addikt
válasz Fferi50 #26687 üzenetére
Bocsánat a dupláért, 1 kérdés sajnos lemaradt még.
Mi a teendő ilyenkor? [link]
Sok az egyezés és mindent külön vesz, az azonos típusokat egybe kéne számolnia, akkor is, ha egy illető több lehetőséget választott.
Tehát így kéne kinéznie: [link][ Szerkesztve ]
“So do all who live to see such times but that is not for them to decide. All we have to decide is what to do with the time that is given us.” ///// Old nick ->xsanyi77
-
szami777
addikt
válasz Delila_1 #26690 üzenetére
Köszönöm a válaszod.
Megpróbáltam úgy, ahogy te írtad, valamennyire sikerült is, de valahogy mégse.
Itt a kép róla: [link]
Sajnos pl a tengerparti üdüléshez csak azt számolja, ahol egyedül azt a választ adták, azokat nem számolja bele, ahol több választ adtak, köztük a tengerparti üdülést is.“So do all who live to see such times but that is not for them to decide. All we have to decide is what to do with the time that is given us.” ///// Old nick ->xsanyi77
-
Delila_1
Topikgazda
válasz szami777 #26691 üzenetére
Az adatok elrendezése hibás. Nem lett volna szabad 1 cellába begyűjteni a különböző válaszokat.
Azt még megteheted, hogy a szövegből oszlopok menüponttal szétszeded a vesszővel elválasztott adatokat. A darabteli függvényben a tartományt erre a megnövekedett területre írod át.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szami777
addikt
-
thomas50.000
csendes tag
Sziasztok!
Excelben szeretnék egy olyan dolgot csinálni, hogy ha pl. az A3-as cella színét megváltoztatom, akkor a B3-as cellába írjon be mondjuk "Nem" szöveget.
=HA(CELLA("szín"; A3) = "v"; A3 * "Nem"; 0)
Ezzel próbálkoztam, de nem igazán sikerül...
Ha csak makróban megoldható, és azt valaki megcsinálná nekem az is nagy segítség lenne, mert én sajnos nem nagyon értek hozzá...
Előre is köszönöm!
-
thomas50.000
csendes tag
Sziasztok!
Excelben szeretnék egy olyan dolgot csinálni, hogy ha pl. az A3-as cella színét megváltoztatom, akkor a B3-as cellába írjon be mondjuk "Nem" szöveget.
=HA(CELLA("szín"; A3) = "v";"Nem"; 0)
Ezzel próbálkoztam, de nem igazán sikerül...
Ha csak makróban megoldható, és azt valaki megcsinálná nekem az is nagy segítség lenne, mert én sajnos nem nagyon értek hozzá...
Előre is köszönöm!
-
thomas50.000
csendes tag
Sub Piros()
If Cells(2301, 7).Interior.ColorIndex = 3 Then
Cells(2301, 14) = "Nem"
End If
End SubEzt a makrót találtam hozzá, ezzel csak annyi a baj, hogy csak a 2301-es sorra érvényes, nekem pedig az összes sorra kéne...
Ezt hogy kéne átírni, hogy minden sornál működjön?A válaszokat előre is köszönöm!
-
Delila_1
Topikgazda
válasz thomas50.000 #26697 üzenetére
Ez a makró az elsőtől a 100. sorig írja be a Nem szót a B-be.
Sub Piros()
Dim sor As Long
For sor = 1 To 100
If Cells(sor, "A").Interior.ColorIndex = 3 Then Cells(sor, "B") = "Nem"
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.
-
Delila_1
Topikgazda
válasz thomas50.000 #26699 üzenetére
Sajnos a színezés az Excel számára nem jelent "esemény"-t, amire egy makró reagálhatna.
Írd át a ciklus végét 100-ról annyira, ahány sort szándékozol kitölteni az A oszlopban.
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
- Politika
- Közeledik az X Fold3 Pro
- Nikon DSLR topik
- Megpróbálják a spanyolok: megvédenék a gyerekeket a közösségi médiától
- Kínai, és egyéb olcsó órák topikja
- BestBuy topik
- Google Pixel 6/7/8 topik
- Kerékpárosok, bringások ide!
- Luck Dragon: Asszociációs játék. :)
- AMD CPU-k jövője - amit tudni vélünk
- További aktív témák...
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
Állásajánlatok
Cég: Alpha Laptopszerviz Kft.
Város: Pécs
Cég: Ozeki Kft.
Város: Debrecen