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.
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 2 years ago.
Improve this question
I'm looking to somewhat generate a "table of contents" of sorts with BeautifulSoup. I've tried extracting the h1, h2, and h3 tags and building a string accordingly, but I'm struggling because I retain the tag content. I'm also struggling in general to get the format correct. Here's what I want.
Let's say I have a file, test.html
<h1>First Part<h1>
<h2>First sub Part<h2>
<h3>First sub sub part<h3>
<h1>Second Part<h1>
<h2>Second sub Part<h2>
<h3>Second sub sub part<h3>
Then, I want to end up generating the HTML that would give me this:
First part
First sub part
First sub sub part
The bullet's dont look great because of Stack's formatting (there may be functionality for this, but I'm not aware of how to use it), but you get the gist. Any ideas?
Thanks!
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 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
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