CheckEmoji Community · the emoji forum
🏠 Home 🆕 What's new ❓ Unanswered 🔥 Popular 📡 RSS Members 👥 0 online log in · register
Home › Kyle Johnson2 › Posts

Posts by Kyle Johnson2

559 posts shown.

David Flores78 said:I just need to be able to pull addresses into Word 2007 and print them onto labels to mail stuff out.

Just look up a tutorial on using Excel and Word together. You can easily print those addresses onto standard US Letter adhesive label sheets.

- How to make address labels in Word
granitenomad said:The second dataset is basically just the first one with some extra stuff tacked on. So they aren't equal, even though they share all the same elements.
It's all numbers, anyway. I can sort them by size if that actually helps.

Look, just go watch some tutorials first and figure out how you can actually use them to fix your own mess.

Could probably work. Conditional Formatting. That's the stuff. Just highlight those duplicates and then wipe 'em out. Sort by color. Somehow.

Maybe you can pull some stuff together to make it work. Unique or Duplicates. Again. Plus the Advanced Sort.
Gregory Rogers20 said:Don't get mad, please, but I did everything I could to make this work.

I'm not getting mad. If I didn't want to help you, I wouldn't have bothered making a tutorial. You just made two mistakes because you were copying stuff without actually thinking about it.
First mistake is in column D. You manually typed out those eHDCP numbers instead of just using the formula "=B2" and dragging it down 53 rows.

Second mistake is in column H. You used the exact same VLOOKUP function for every single group. You should've noticed that the VLOOKUP function relies on a specific range to search through. That range isn't the same for all the groups.

Every group has its own range (I added this to the tutorial now so it makes sense)
- first => $C$2:$D$14
- second => $C$15:$D$27
- third => $C$28:$D$40
- fourth => $C$41:$D$53

Here’s the original file from the tutorial.

- Copying, sorting, and grouping with MIN and MAX

Also, grab this VLOOKUP PDF tutorial (password: www-ic-ims-us) and study how the function works—it's got examples too.

I can't help you any further. If this doesn't cut it, find someone to program the whole thing for you in Access.

image

Later
Gregory Rogers20 said:For the hundredth time: using a formula is just stupid because it doesn't actually delete the rows—it just leaves "NN" everywhere. Can we handle decimals in Visual Basic?

Man, you're wound up. Could've just done it right the first time instead of half-assing it. Honestly, everything works fine for me using the formulas @forrest and Nicholas King gave me. It’s actually way easier than messing with VBA.
You just posted a blank file based on the one I gave you. You didn't even put in a single formula to prove your point that it can't be done with formulas.

Look at this, @Gregory Rogers20/">@@Gregory Rogers20
I don't mind helping out when someone hits a wall. But honestly? You gotta learn how to use your head. In my opinion, you just didn't put in the work.
Look, this forum isn't a homework hotline where you can just drop a problem and expect someone to hand you a finished product on a silver platter. It's here to help when you actually get stuck. If you want everything done for you, go find an expert, explain the job, and pay them for the final result. That's how it works.

Look, if you want proof, here it is: a full-blown tutorial with every single screenshot and all the Macros included. I'm laying it all out just to show you that stuff like this actually takes some actual effort. You've got the guidelines, you've got the links, and yet you still haven't lifted a finger. So, yeah—it's on you now to just copy everything over and apply it to your own file.

- How do I auto-sort and copy everything between the MIN and MAX?

Hey.
Gregory Rogers20 said:Sending over two files—cleaned things up a bit and made it way clearer.http://www.mediafire.com/file/hl2y5uauwarl7ia/hdcp.zipBtw, if you're going with file2 (using VB), just grab the group table from file1.

👎
My bad, I just gave you the basics before, but here are the formulas and it handles decimals now. Study it and you can tweak it however you want.
Later
Here’s part two of the code, picking up right where the first bit left off.
Code:
Range("D20").Select
Selection.Copy
Range("D21").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C21").Select
ActiveCell.FormulaR1C1 = "5"
Range("D21").Select
Selection.Copy
Range("D22").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C22").Select
ActiveCell.FormulaR1C1 = "17"
Range("D22").Select
Selection.Copy
Range("D23").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C23").Select
ActiveCell.FormulaR1C1 = "19"
Range("D23").Select
Selection.Copy
Range("D24").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C24").Select
ActiveCell.FormulaR1C1 = "14"
Range("D24").Select
Selection.Copy
Range("D25").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C25").Select
ActiveCell.FormulaR1C1 = "12"
Range("D25").Select
Selection.Copy
Range("D26").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C26").Select
ActiveCell.FormulaR1C1 = "11"
Range("D26").Select
Selection.Copy
Range("D27").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C27").Select
ActiveCell.FormulaR1C1 = "24"
Range("D27").Select
Selection.Copy
Range("D28").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C28").Select
ActiveCell.FormulaR1C1 = "20"
Range("D28").Select
Selection.Copy
Range("D29").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C29").Select
ActiveCell.FormulaR1C1 = "4"
Range("D29").Select
Selection.Copy
Range("D30").Select
Selection.PasteSpecial paste : = xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("C30").Select
ActiveCell.FormulaR1C1 = "11"
Range("C31").Select
select ActiveWindow
SmallScroll down : = -18 range
Range("D2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>0,VLOOKUP(RC[-1],R1C6:R6C7,2,TRUE),"""")"
Range("D2").Select
Selection.AutoFill Destination:=range("D2:D30"), Type:=xlFillDefault
Range("D2:D30").Select
Range("A1:D30").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("F1:G6").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("J2").Select
ActiveCell.FormulaR1C1 = "=COUNTIF(R2C4:R39C4,R[-1]C)"
Range("J2").Select
Selection.AutoFill Destination:=range("J2:M2"), Type:=xlFillDefault
Range("J2:M2").Select
Range("A1:D30").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial paste := xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A1:D1").Select
Application.CutCopyMode = False
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$30").AutoFilter Field:=4, Criteria1:=Array("2", _
"3", "4", "5"), Operator:=xlFilterValues
End Sub

is the "program" that would get the job done (at least I think)
Sarah Brown86 said:I have no idea how to make a Macro command work

hmm, I figured you’d at least try to throw some code up here before asking, but nope 😢

Here, just try this Macro (splitting it into two parts since it's huge)
Code:
Sub Program()
' Kyle Johnson2 for the forum
' www.ic.ims.com
' Keyboard Shortcut: Ctrl+Shift+K
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "rb"
Range("B1").Select
ActiveCell.FormulaR1C1 = "student name"
Range("C1").Select
ActiveCell.FormulaR1C1 = "points"
Range("D1").Select
ActiveCell.FormulaR1C1 = "grade"
Range("F1").Select
ActiveCell.FormulaR1C1 = "0"
Range("F2").Select
ActiveCell.FormulaR1C1 = "12"
Range("F3").Select
ActiveCell.FormulaR1C1 = "13"
Range("F4").Select
ActiveCell.FormulaR1C1 = "16"
Range("F5").Select
ActiveCell.FormulaR1C1 = "19"
Range("F6").Select
ActiveCell.FormulaR1C1 = "22"
Range("G1").Select
ActiveCell.FormulaR1C1 = "1"
Range("G2").Select
ActiveCell.FormulaR1C1 = "1"
Range("G3").Select
ActiveCell.FormulaR1C1 = "2"
Range("G4").Select
ActiveCell.FormulaR1C1 = "3"
Range("G5").Select
ActiveCell.FormulaR1C1 = "4"
Range("G6").Select
ActiveCell.FormulaR1C1 = "5"
Range("J1").Select
ActiveCell.FormulaR1C1 = "2"
Range("K1").Select
ActiveCell.FormulaR1C1 = "3"
Range("L1").Select
ActiveCell.FormulaR1C1 = "4"
Range("M1").Select
ActiveCell.FormulaR1C1 = "5"
Range("J1:M2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("J1:M1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1:D1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2:A3").Select
Selection.AutoFill Destination : = range("A2:A30"), Type:=xlFillDefault
Range("A2:A30").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "a"
Range("B3").Select
ActiveCell.FormulaR1C1 = "b"
Range("B4").Select
ActiveCell.FormulaR1C1 = "c"
Range("B5").Select
ActiveCell.FormulaR1C1 = "d"
Range("B6").Select
ActiveCell.FormulaR1C1 = "e"
Range("B7").Select
ActiveCell.FormulaR1C1 = "f"
Range("B8").Select
ActiveCell.FormulaR1C1 = "g"
Range("B9").Select
ActiveCell.FormulaR1C1 = "h"
Range("B10").Select
ActiveCell.FormulaR1C1 = "i"
Range("B11").Select
ActiveCell.FormulaR1C1 = "j"
Range("B12").Select
ActiveCell.FormulaR1C1 = "k"
Range("B13").Select
ActiveCell.FormulaR1C1 = "l"
Range("B14").Select
ActiveCell.FormulaR1C1 = "m"
Range("B15").Select
ActiveCell.FormulaR1C1 = "n"
Range("B16").Select
ActiveCell.FormulaR1C1 = "o"
Range("B17").Select
ActiveCell.FormulaR1C1 = "p"
Range("B18").Select
ActiveCell.FormulaR1C1 = "q"
Range("B19").Select
ActiveCell.FormulaR1C1 = "r"
Range("B20").Select
ActiveCell.FormulaR1C1 = "s"
Range("B21").Select
ActiveCell.FormulaR1C1 = "t"
Range("B22").Select
ActiveCell.FormulaR1C1 = "u"
Range("B23").Select
ActiveCell.FormulaR1C1 = "v"
Range("B24").Select
ActiveCell.FormulaR1C1 = "z"
Range("B25").Select
ActiveCell.FormulaR1C1 = "aa"
Range("B26").Select
ActiveCell.FormulaR1C1 = "bb"
Range("B27").Select
ActiveCell.FormulaR1C1 = "cc"
Range("B28").Select
ActiveCell.FormulaR1C1 = "dd"
Range("B29").Select
ActiveCell.FormulaR1C1 = "ee"
Range("B30").Select
ActiveCell.FormulaR1C1 = "ff"
Range("B31").Select
ActiveWindow.SmallScroll down : = -18 range
Range("C2").Select
ActiveCell.FormulaR1C1 = "15"
Range("C3").Select
ActiveCell.FormulaR1C1 = "18"
Range("C4").Select
ActiveCell.FormulaR1C1 = "11"
Range("C5").Select
ActiveCell.FormulaR1C1 = "24"
Range("C6").Select
ActiveCell.FormulaR1C1 = "16"
Range("C7").Select
ActiveCell.FormulaR1C1 = "10"
Range("C8").Select
ActiveCell.FormulaR1C1 = "8"
Range("C9").Select
ActiveCell.FormulaR1C1 = "15"
Range("C10").Select
ActiveCell.FormulaR1C1 = "19"
Range("C11").Select
ActiveCell.FormulaR1C1 = "17"
Range("C12").Select
ActiveCell.FormulaR1C1 = "13"
Range("C13").Select
ActiveCell.FormulaR1C1 = "20"
Range("C14").Select
ActiveCell.FormulaR1C1 = "16"
Range("C15").Select
ActiveCell.FormulaR1C1 = "21"
Range("C16").Select
ActiveCell.FormulaR1C1 = "14"
Range("C17").Select
ActiveCell.FormulaR1C1 = "18"
Range("C18").Select
ActiveCell.FormulaR1C1 = "7"
Range("C19").Select
ActiveCell.FormulaR1C1 = "20"
Range("C20").Select
ActiveCell.FormulaR1C1 = "23"
Gregory Rogers20 said:Any clue how to fix this so it actually works with decimals?

@Gregory Rogers20/">@@Gregory Rogers20... you there?
I honestly thought you’d put in a little effort and try to build something on your own first. Or, at the very least, post a sample table of what you're working on—use fake data if you have to—so we can actually see where you're getting stuck.

Whatever, here’s an example of how I think you want it done.

On the "baza" Sheet, you've got the full roster of players—it's just a list with their rank, handicap, and name.
Once you've finished entering everyone—especially once those handicap numbers are in—the whole list just sorts itself. The numbers and names stay perfectly synced. Every single time you tweak a handicap and hit enter, the auto-sort kicks in again. Done.

On the "groups" Sheet, you just punch in the MIN and MAX for each group, and the data filters itself based on your criteria.
Look, I'm no psychic, so I have zero clue how you imagined this spreadsheet looking. Just tweak it however you need to make it work for you. 🙂

You can grab the file at this link. Sorting automatically using MIN and MAX.

The password for the unpack is:
code : range
www-ic-ims-us
slyfalcon542 said:Man, every time I turn on page numbering, that bottom line jumps straight up. It’s not sitting at 5mm anymore—it's way too high. Total headache.

Margins in... Word 2003 Either/or. Word 2007 You can set your text boundaries by messing with the Header or Footer settings on the Layout tab. You can also tweak the margins there too.
Sarah Brown86 said:it should be a macro using a filter
but I'm stuck on the code.. totally lost here :P

Come on, if they want a macro, just write one—even if you could just use a few formulas to fix it.
No clue what kind of testing this is or what level we're talking about (is this for some basic computer literacy cert?)

btw: check out this tutorial for help

- How to record and run a macro
Benjamin Wilson7 said:Does this need to be done using a VBA macro or just some old-school manual hack?

Forget VBA. Honestly, your "manual hack" approach works fine if you just use a few formulas.😂

Waiting on our colleague to drop her file so we can actually see how she tackled this and where she hit a wall.
Morgan Bishop4 said:not sure how to swap out the numbers on the x-axis?

Hopefully these tutorials help you out, maybe even more than what Nicholas King suggested

- How to change chart axis values
- Adjusting the MAX value on a chart
- Modifying values within a chart
Sarah Brown86 said:p.s ignore those numbers... it's just a template I need to build in Microsoft Excel without those specific values..
So how do I set it up to calculate sales tax (7%)?

Have you checked out this tutorial?

- Sales Tax in Microsoft Excel
Gregory Rogers20 said:Gonna wait on John to see if he can figure out this decimal situation.

Don't wait up for me. Just Google it—I'm already Googling. Get moving. 🙂

Benjamin Wilson7 said:Just whipped up a template I’m calling PAYROLL—it's my new go-to for crunching employee paychecks.

Brain's fried. Need to step away from the PC for a bit. Check this out. HERE Can you help me out? I used to do this kind of stuff way back in the day when I was just starting out. There are 5 sheets on that link.
Think about that new file you're building to aggregate all the data from those other Google Sheets. You actually need to define them first. Honestly, I can barely make sense of what you wrote, let alone give you any solid advice right now. 🙂

Night, you two.
amberskipper22 said:So, if I pick "Piglet" from the dropdown, it should grab the price and put it in the "Total" field. Also, if I select "Lamb" in the "Stvar1" column on that same row, it needs to add that to the piglet total too.

On the Sheet where you're doing the math, just set up a Validation list for every single Stvar. Pro tip: use Define Name for your data ranges—it makes your formulas way less of a headache
. Also, give your Sheets actual names that make sense. Once your Validation list is set, just use the SUMIF formula. Just drag it down for as many "stvari" as you've got. Hope that clicks. Here's the finished file for you

- Summing conditions via Validation list from other Sheets
Gregory Rogers20 said:Yeah, I mean, if I had more data—like at least 100 rows—all those useless "empty rows" would just clutter everything up and make it look messy instead of clean...
What if you just dumped everything into a single cell, one after another?

Here’s how you can knock that out using a Makronaredba.
The example gives you two options: hit the COPY button or use the FORM button.
If you click Copy, it automatically grabs everything based on what you set in cells E1 and E2.

If you want to go through the form, just click the Form button to pop up a dialog box where you can type in your MIN and MAX values.
Everything gets copied right under the specified range.
Just tweak the Makronaredba parts to fit whatever you actually need.

- Copying between MIN and MAX values
Ethan Palmer69 said:How do I delete page numbers on specific pages in Word without them disappearing everywhere else?

Use sections. Check out Numeriranje in sections
Gregory Rogers20 said:So, what I'm actually looking for is to make that "23" dynamic. Instead of just hitting one specific number, I want it to scan through Column A, find everything in the 22 to 25 range, and then spit out all the matching rows from Column B. How do I bake that into the formula?

I don't even know if I can help you yet. You're being vague as hell. Where do you want the results? How should they look? Do you need everything shoved into one single cell or what? Give me some details.

Just like you explained, the function... VLOOKUP. The first argument is the "Lookup Value." Basically, you gotta tell the function WHAT it's actually looking for. Instead of just hardcoding that number "23," you can just point it to a cell address so the function knows what to hunt for. Check out this tutorial on VLOOKUP—it’s got a few solid examples to walk you through it.

If you're dealing with a massive spreadsheet—which I'm assuming is the case here—you can just set the criteria directly in column D. Your formula would look something like this:

If you want the result to sit in a single cell right under your table using that same function, just drop this formula in:

Just chaining a bunch of VLOOKUPs together like that? =VLOOKUP(D1, A1:B13, 2, FALSE) & VLOOKUP(D2, A1:B13, 2, FALSE) & VLOOKUP(D3, A1:B13, 2, FALSE) & VLOOKUP(D4, A1:B13, 2, FALSE) Total overkill. Honestly, just use CONCATENATE or TEXTJOIN if you're trying to be fancy, but man... that's a lot of typing just to smash some strings together. Simple, I guess. Brutal.

So, this formula basically mashes all those results you wanted into one single cell. If you plug the numbers into column D—say D1 is 22, D2 is 23, D3 is 24, and D4 is 25—you'll end up with (efgh). Simple as that.
restlessheron19 said:yeah... I get it now...
So the code for point 2 would look like this?

Spot on. Just keep in mind—if you drop this macro directly into the specific Sheet where you want the deletion to happen, you're good. But if you toss it into a Module, you'll need to add extra lines to tell it which Sheet to target and all that jazz.😉
restlessheron19 said:So.. question..
is it actually possible to do this.. when recording a macro.. to basically "nest" another macro inside it?
Like.. linking them.. in this case two macros.. into one single macro..

If yes.. then later on when I record one of those macros... within a macro... there would be multiple macros.. any advice?

I already sent you some links to check out.
Specifically, at THIS link, there's a macro that actually runs several other macros—it calls them in a specific sequence. Basically, you trigger one main macro via a button, and that one handles calling all the others.

Code:
call exit 'calling procedure in module-3
call filter 'calling invoice filter procedure
call SaveAs 'calling procedure in module-1
call archive 'calling procedure in module-2

Also, you can download an e-book if you want to study Offline. Check out these links too:

- macros in Excel
- beginner's guide to VBA in Excel