Jump to content
News Ticker
  • Welcome to the Community
  • Use the forum to troubleshoot your Excel & VBA Problems
  • We will be launching a new website soon! www.ExcelWTF.com/Learn ! Join us to learn VBA from the ground up!


  • Content Count

  • Joined

  • Last visited

Community Reputation

1 Neutral

About Kirabo

  • Rank
    Newbie 1

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Thanks so much for this good sir! Worked like a charm I have other improvements to make to my dashboard so I'll pop by again soon!
  2. haha turns out my charts ARE called Chart1 & Chart2 anyway That's cool, seems to work great! However, is it possible to change it so that the axis find the biggest number in my dataset and then rounds up to the nearest 10? Also how can i change it so that columns B:C can be dynamically filled with more data and I wont have to keep editing the code?
  3. Hey Where do I find out the name of the chart? is it the title? - My two datasets are in columns B2:B8 & C2:C15. - My sheet name is "Utilization" Thanks for your help!
  4. Hey, I have 2 charts on my sheet (one bar & one line), and I need to make sure their MAX values on the Y-Axis are the same. They are using different datasets, so I need the highest Y-Axis to apply to both so that I can overlay the charts over one another on the sheet. I can't find a way to do this with the GUI, is this something VBA can do? TIA Kirabo
  5. Kirabo

    Code Tidy Up

    I have recorded a macro to do some operations I need to complete on imported data. It saves me some time and lets the VBA do the tedious bit of the task for me. However, I know that recording macros isnt the most efficient task. Has anyone got any suggestions of how I can tidy this code up? Code: Sub Macro1() ' ' Macro1 Macro ' ' Rows("2:3").Select Selection.Delete Shift:=xlUp Range("A1:M2").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorAccent1 .TintAndShade = 0.399975585192419 .PatternTintAndShade = 0 End With Selection.Font.Bold = True With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A3:M4").Select Selection.Copy Range("A17").Select ActiveSheet.Paste Range("A22").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=SUM(R[-19]C:R[-1]C)" Range("A22").Select Selection.AutoFill Destination:=Range("A22:M22"), Type:=xlFillDefault Range("A22:M22").Select End Sub Any help would be great Kind Regards Kirabo
  6. Kirabo


    Welcome to the forum!
  7. oh wow I didnt know you could concatenate cells in a formula to lookup. Formula works geat Thanks for you help! Repped!
  8. Does anyone know if it's possible to do a VLOOKUP with two criteria? I have some example data shown below... so basically In column I I need to look up the price in column E, using the values in G4:H4. I can use vlookup with 1 criteria, but not sure how to do it with two! Any help would be appreciated Thanks Kirabo!
  9. ^^ Nice formula, saved it to my repository... looks like something useful
  10. Excellent! Saved me some time and certainly some frustration! Works like a charm I like how it gives me the pop-up when if i spell the sheet name incorrectly! Thanks again Caleeco!!
  11. Ahh ok, didnt know that! Here I was deleting worksheets 1 by 1 like a fool! Some vba code would be nice, I have hundreds of sheets! so scrolling back and forth isnt so easy. Thanks a lot!
  12. Hello All, Was hoping to get some help with a VBA tool. I am testing a macro where I'm creating and deleting a lot of new sheets. However, I need to delete the sheet, I just created in order to re-test my code. Could someone help me write a code that will ask me for a sheet name and then delete all the sheets after and including that sheet? Thanks K
  13. Spot on! I knew it was something simple haha. Thanks for going into detail with the explanation! I'll keep that in mind in future
  14. Hello, For some reason I cannot get this small bit of code to work! All i need to do is find the last row of my table, and then merge the next row underneath it. This is what I have so far. LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 Range("A" & LastRow :"F" & LastRow).Select Selection.merge What am I doing wrong here?
  • Create New...