Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 6 years ago.
Improve this question
I am looking for a code that will pop up a message box when a value (ie in cell A1) is not between the value of two seperated cell values.
For instance, display a pop message when the value A1 is lower than A2 or if higher then A3;
Can anyone help me with this one?
Thx in adv;
Brgds, Jimmy
Use following simple sub.
Sub CHeckVal()
If Range("A1").Value < Range("A2") Or Range("A1").Value > Range("A3") Then
MsgBox Range("A1").Value
End If
End Sub
Related
Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 5 months ago.
Improve this question
I saw in most of the website counter numbers starts from zero and reaches a specific number Is there a code in ms access vba to perform this action
Since I already had some code, I will throw you a bone.
This would be simply incrementing a value held in a textbox on a form. I include a timer delay so you can watch the numbers change.
Dim x As Integer
Dim Start As Double
Me.tbxHours = Null
For x = 1 To 15
Me.tbxHours = Nz(Me.tbxHours, 0) + 1
Start = Timer
While Timer < Start + 0.1
DoEvents
Wend
Next
Now where you use that code and how you trigger it is for you to determine.
Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 5 years ago.
Improve this question
I try to make a program to calculate integrals. I want to read the equation from a textbox and i don't know how to store it. For example i write in the textbox : 3x^2+2x+1. How can i make some arrays to store every member of that equation and to solve it ?
You really should include code if you want people to help you. I have a suggestion but it really all depends. Are you only wanting to put the numbers in an array or all characters and symbols? Or are you wanting to put the entire equation as one entry in the array? I am not sure an array would be the best route to go for this sort of thing. But whatever.
Public Class Form1
Dim EqArray() As string
Public Sub Array_Entry()
Dim NewEntry as string = textbox1.text
EqArray.items.add(NewEntry)
msgbox(NewEntry & " has been added.")
End Sub
End Class
Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 5 years ago.
Improve this question
How to get the number of lines entire the cell of datagridview ?
I don’t want number of cells or number of rows I ensure I want the number of the lines inside a specific cell.
thanks
This writes "2" in my Output window.
Dim dgv = New DataGridView()
dgv.Columns().Add("column", "column")
dgv.Rows().Add(1)
dgv.Rows().Item(0).Cells().Item(0).Value = "foo" & vbNewLine & "bar"
Console.Write(dgv.Rows().Item(0).Cells().Item(0).Value.ToString().Split(vbNewLine).Count())
Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 8 years ago.
Improve this question
I am very new to VBA and I have read so much on the If-Then-Replace that I think I'm confusing myself. Within my worksheet I have two columns that come in with more data than what I need and I have to get it pared down in order to concatenate it.
Column H (Header) has the following data in each cell: Network: Series: Episode : Data
Column J (Header) has the following data in each cell: Network: Type: Type2: Type3
I run a text-to-columns to get it down to have the Network in 1 column and the Series in the 2nd column.
What I need is a Search in Column J for "specific network". If this is true then replace the network in Column H.
Question: Will I need to also run a text-to-columns in Column J to get a 1:1 comparison?
Question: Can you help me with the VBA code to do the Find-If-Then-Replace?
Thank you so much!
This should do what you're looking to do... If it works for you, please mark the answer as accepted by clicking the checkmark to the left.
Sub Freplace()
dim i as int
dim s as string
i = 1
s = "specific network"
Do until Cells(i,10).Value = ""
If Cells(i,10).Value = s Then Cells(i,8).Value = s
i = i+1
Loop
End Sub
Closed. This question needs details or clarity. It is not currently accepting answers.
Want to improve this question? Add details and clarify the problem by editing this post.
Closed 8 years ago.
Improve this question
My chart contains some extraneous series. These series all contain the word "series" in them (e.g., "Series1", "Series2") rather than descriptive names.
Can someone please provide a VBA procedure that executes this Pseudocode:
In chart 1 if any series name contains the word "series" delete it.
If not then do nothing
Sub DeleteSeriesWith_Series_InName()
Dim iSrs As Long
With ActiveChart
For iSrs = .SeriesCollection.Count To 1 Step -1
If InStr(LCase$(.SeriesCollection(iSrs).Name), "series") > 0 Then
.SeriesCollection(iSrs).Delete
End If
Next
End With
End Sub
Count series backwards, because deleting a series changes the series numbers of any series after it.