Search results

Put this after the first code in sheet1 Private Sub Worksheet_Calculate() Dim rng As Range Set rng = ActiveSheet.Range("a1:a20") If Not Intersect(Target, rng) Is Nothing And Target.Cells.Value > 25000 Then MsgBox "Please enter the value less than 25000!" End If End Sub

alt+F11 -> Opens Visual Basic Editor On the left side of the window Project - VBAProject -> Select sheet1 (or the name of your sheet), then on the right side in the first combo select Worksheet & in the second Change -> enter your code

I hope this will help you!!! Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = ActiveSheet.Range("a1:a20") If Not Intersect(Target, rng) Is Nothing And Target.Cells.Value > 25000 Then MsgBox "Please enter the value less than 25000!" End If End Sub

I`m certain that the loops could gain on speed if they could somehow be optimized, or maybe replace them with something else that could speed things up. Anyway i can see that i`m doing something wrong from the start but i can`t figure out a better solution. The general idea is this: the...

Sub Vader_Extract_Tel_Bills() Application.ScreenUpdating = False Range("C:C,D:D,E:E,F:F,G:G").Delete Shift:=xlToLeft Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Dim rng As Range Dim Mime1, Mime2, Mime3, Mime4 As String Mime1 = "/200" Mime2 = "Vkupno:" Mime3...

HELP with optimization and compacting!!! Sub Vader_Extract_Tel_Bills() Application.ScreenUpdating = False Range("C:C,D:D,E:E,F:F,G:G").Delete Shift:=xlToLeft Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete Dim rng As Range Dim Mime1, Mime2, Mime3, Mime4 As String...

Hi everyone! I need a code that will copy a particular cell (let`s say every second cell in column B) in every second row of the used range and copy/paste it in a column of my choosing (first empty column).Thanks in advance!

Hi, i need to find rows that match a certain criteria (the rows may not be consecutive, and the criteria may be text or a number), then select/cut the rows and paste them in another sheet? Thanks in advance!

Hi Shades! Sorry! Here it is

Simple question = Can you arrange Sheet1 so it can look like Sheet2 trough VBA? Sample data is by random choice!

Use record macro when you do that and you`ll get the idea. It`s the easiest way!

Hello! Could you please explain what do you want to do? I can see that you are trying to copy data from one sheet to another. Is the data you are copying in fixed range? Please explain and attach the file. If it`s a simple copy of data (and I think it is!), you can use this: Sub le888()...

All to easy... Data->Text to columns->Delimited->Other->SHIFT+\

Hello ogg13! You can use VBA Sub PopulatedCells() ActiveSheet.UsedRange.Select 'here is what you want to do with your 'current selection End Sub

Thank You!!! Thank you very much for your time namliam;)

chr(160) = Non breaking space character (alt+0160)

Hello to everyone who reads or is a member of this Forum! I was only reading and searching this forum, which I must say that is one of the best, if not "THE BEST" of it`s kind, until today - I have a problem with Excel VBA code! First of all, I`m not satisfied with the speed of my code, second...