Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. avrcan

    Incrementing Letters: A -> B , Z -> AA , AB -> AC... Best Way?

    take a look in following: Sub Test_NextString() MsgBox NextString("B") End Sub Private Function NextString(strX) As String Dim strC As String On Error Resume Next strC = Range(strX & 1).Offset(0, 1).Address(False, False) If Err = 0 Then NextString =...
  2. avrcan

    Excel Macro Help ActiveCell range

    Take look at following: Sub CutPaste_Data() Range("A1:C1").Cut Destination:= _ Range("A100").Offset( _ Range("A100").CurrentRegion.Rows.Count, 0) End Sub Andro (andrija.vrcan@dalmacijacement.hr)
  3. avrcan

    How do i determine msChart control coordinates?

    ' Take look at following sample ' In ChartSheet Module insert the following code: Private Sub Chart_MouseMove( _ ByVal Button As Long, ByVal Shift As Long, _ ByVal x As Long, ByVal y As Long) ' -------------------------------------------------- ' My Chart-Name = "Chart6&quot...
  4. avrcan

    MS Chart

    ' Take look at following sample Sub Chart_Sample() Dim SeriesCollVal, SeriesCollXVal() Dim ForeSchemeColor, BackSchemeColor, i As Integer ' Fill arrays ForeSchemeColor = Array(11, 9, 51, 53, 49, 9) BackSchemeColor = Array(5, 46, 43, 44, 42, 3) ReDim SeriesCollVal(5)...
  5. avrcan

    Dynamic Array

    Dim my() As String Sub aaa() Dim i As Integer Call myProcedure For i = LBound(my) To UBound(my) ' 1 to 2 MsgBox my(i) Next i ' etc ... End Sub Sub myProcedure() ReDim my(1 To 2) '   ect... my(1) = "blabla" my(2) = "blabla2" End Sub
  6. avrcan

    Custom Dialog Box - Getting user input.

    Look at http://www.vbatutor.com/vbatutor.htm. There you will find everything you are interesting in.
  7. avrcan

    Fill the empty cells of one xl sheet by referencing another xl sheet

    Value in Output Sheet column "A" is key. Programm is loking for identical value in Input Sheet column "A". If programm find identical value in Input Sheet column "A", it fill Output Sheet columns "B" & "C" by values from Input Sheet columns...
  8. avrcan

    Fill the empty cells of one xl sheet by referencing another xl sheet

    Do you think something like this: Dim wbIn As Workbook, wbOut As Workbook Dim wshIn As Worksheet, wshOut As Worksheet Dim celIn As Range, celOut As Range Sub TransferData() Dim RowsCount1 As Long, RowsCount2 As Long ' find and assign rows count for each sheet, e.g RowsCount1 = 20 RowsCount2 =...
  9. avrcan

    Paste Special in Excel

    If you want to delete button, try something like this: Sub Delete_Buttons_1() Dim sh As Shape For Each sh In ActiveSheet.Shapes If Left(sh.Name, 13) = "CommandButton" Then sh.Delete Next End Sub Sub Delete_Buttons_2() Dim sh As Shape For Each sh...
  10. avrcan

    Paste Special in Excel

    1. You can copy validation (Copy-Paste/PasteSpecial(constant xlPasteAll)) but you must be careful with data validate from list (source will refer to range on the worksheet to wich you pasted data). 2. It's possible to paste only values, formats, etc, as follow: Range("B2:D4").Copy...
  11. avrcan

    How do I remove vpagebreaks using code

    Hi you can remove only manual Page breaks.

Part and Inventory Search

Back
Top