Visual Basic :: Moving To The Next Item In A Pivotfield

Coloring Pivotfield.item
Hi guys,

I would like to prepare code which will color pivotfield.pivotitem.labelrange. So far I have prepared the following code:

VB Code:
Dim pvtfield As PivotFieldDim pvtitem As PivotItemsSet pvtfield = ActiveSheet.PivotTables("PivotTable9").PivotFields("year2_sk")For Each pvtitem In pvtfieldpvtitem.LabelRange.Interior.ColorIndex = 24Next

When I run this code it giving me back the 438 error code and highlights me the 4th line.
Can anybody tell me what is wrong?

Thanks. Boris

I have changed to this and it works:

VB Code:
Dim pvtfield As PivotFieldDim pvtitem As PivotItemDim i, jSet pvtfield = ActiveSheet.PivotTables("PivotTable9").PivotFields("year2_sk")i = pvtfield.PivotItems.CountFor j = 1 To i pvtfield.PivotItems(j).LabelRange.Interior.ColorIndex = 24 pvtfield.PivotItems(j).LabelRange.Font.Bold = True pvtfield.PivotItems(j).LabelRange.HorizontalAlignment = xlCenterNext j

Listview Item Moving
Hi there,

is it possible to move items in a Listview control(Up and down the list) and how, this one is baffling me

the pig...

Moving Item From One Listbox To Another
Hey all

I am trying to move an item from one listbox to another. The first listbox has items where the RowSourceType = "Field List" and the second one is value list. This is my code:

Private Sub DisplayAllFields_DblClick(Cancel As Integer)

If ListOfFieldsSelected.RowSource = (List0.Value & "." & DisplayAllFields.Value) Then
MsgBox ("You cannot select a field more than once. Please select another field")
Else
ListOfFieldsSelected.AddItem (List0.Value & "." & DisplayAllFields.Value)
End If
End Sub

When I double click the same value in the first list again, it brings up the msgbox once but it doesn't do that once it has added another field to ListOfFieldsSelected. I would use the RemoveItem method so user can't click the field again but DisplayAllFields is set to Field List so it can't remove item unless set to "Value list". Any suggestions on this?

Any help will be greatly appreciated.

Many thanks

Rupa

ListBox, Moving From First Item To Second And So On
Hey, im working on a media player, the media player works great but the playlist is screwey! Im having troubble with this:

You select an item for play - 100% ok
it plays it - 100% ok
it then goes to the next item on the list - BUGGY!

it wont move to the next item and when it does, it wont update the selected item eg, it will play the next item then when thats done it will play the one before that not the next on (constant loop between two files). Please help

Moving A Item In A List Box Up Or Down
I have two buttons on a form and I want the be able to click the up button then move the selected item up or click the down button and have the item go down.

Any Ideas?

PivotField Selection Problems!!!
Hi all,

Can anyone help. I have this code to create a pivot table on a seperate sheet in my workbook. The problem is i want to be able to change the pivotfield ranges below by being able to correspond to a point on the worksheet i.e. activecellranger1c1 or cell A1..etc.. At the moment if iwant to change the datafield and row field it is manually done in VB Editor.

Thanks!!!

Code:
ActiveCell.FormulaR1C1 = "I want this to appear"

.PivotFields Range("I want this to appear !!!HERE!!!").Orientation = xlDataField
.PivotFields Range("I want this to appear !!!HERE").Orientation = xlRowField

Sub CreatePivotTable()
Dim PTCache As PivotCache
Dim PT As PivotTable

On Error Resume Next
Application.DisplayAlerts = False
Sheets("Summary").Delete
On Error GoTo 0

Set PTCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:="Source Data!R1C1:R3000C20") _

Worksheets.Add
ActiveSheet.Name = "Summary"
ActiveCell.FormulaR1C1 = "I want this to appear"

Set PT = PTCache.CreatePivotTable _
(TableDestination:=Sheets("Summary").Range("b22"), _
TableName:="PivotTable1")
ActiveWindow.Zoom = 75
ActiveWindow.DisplayGridlines = False

With PT
.PivotFields Range("I want this to appear !!!HERE!!!").Orientation = xlDataField
.PivotFields Range("I want this to appear !!!HERE").Orientation = xlRowField
.PivotFields("Function").Orientation = xlPageField
.PivotFields("Location").Orientation = xlPageField

End With

End Sub

PivotField Text Limit
Does anyone know if there is any way to view more than 255 characters in a pivot table field?

i have created a database in excel for users to write comments, which are then viewed/sorted via a pivot table. The problem is that some people have written entries with more than 255 characters. Excel is truncating the entries in the pivot table results, although the full text is still in the original spreadsheet.
Is there a default that I can change, or is it a limitation of the Pivot table?

Moving Item Between List Boxes
I have a command button with the Caption ">". When clicked I want the selection the user has made in ListBox1 to be moved to ListBox2.

Anyone ever do something like this before?

thx..

Moving The Selected Item In Listview
****
I solved the problem, thanks to all for your attempt at helping.

Here is the code:

Set ListView.SelectedItem = ListView.ListItems(i)
****

I have a Listview populating from a database and sorts the data alphabetically.

Now when the user deletes an item from the database, it also refreshes the listview.

The question I have is, the listview always sets focus to the last item it added, however it does not add them alphabetically, so after there added and the listveiw sorts them, the item selected could be anywhere!? How can I have this list view set focus to the first entry? Or better yet one that I specify or has been saved (IE save the record ID when they exit the prog, so when they come back I can pull that and set focus to that item)??

Thanks for the help.
Bryan

[This message has been edited by Bryan (edited 01-12-2000).]

Stop Item Dragging/moving In ListView
Is there any way you can stop the user from moving the item position in a listview?? I need them to stay the same as i added them first by code, with them being fixed for the user and not allowing any movement of item position!

thanks!

When Moving Item Down In The Listbox The Text Disappears
Okay dont know why but the text is dissapearing when an item is moved down the list box.

Image1 displays before the move down
Image2 displays after the move down
Code is also attached. I am very confused I have been through this code througherly and I am sure there is not an error in the code.

Code:
' check: only proceed if there is a selected item
' check: last item can't be moved down
' save items text and items indexvalue
' remove item
' place item back on new position
' if you keep that item selected
' you can keep moving it by pressing cmdDown
' for arLoopCount adds the new playlist entrys from
' lstPlayList.
' list1 refreshes
' lstPlayList refreshes
Dim tempStr As String
Dim iIndex As Integer
Dim arLoopCount As Integer
List1.Clear ' Debugging orriented object to display the contents of arFilePlayList Array
If lstPlayList.SelCount = 1 Then
If lstPlayList.ListCount - 1 = lstPlayList.ListIndex Then
Exit Sub
Else
tempStr = lstPlayList.List(List1.ListIndex)
iIndex = lstPlayList.ListIndex
lstPlayList.RemoveItem lstPlayList.ListIndex
lstPlayList.AddItem tempStr, iIndex + 1
lstPlayList.Selected(iIndex + 1) = True
End If
End If
For arLoopCount = 0 To lstPlayList.ListCount
arFilePlayList(arLoopCount) = lstPlayList.List(arLoopCount)
List1.AddItem arFilePlayList(arLoopCount)
Next arLoopCount
List1.Refresh
lstPlayList.Refresh

Simple! Moving A Listbox Item For One Lsitbox To Another.
How can I move an item from

lstbox 1 ---> lstbox 2

I want the item to be removed from lstbox 1 and added to lstbox 2

Thanks for anyone who helps.

Pivot Table; Loop Through PivotField Values
I’m new to this, but I’ll give it a shot. I’m trying to create a macro that will look at a list and iterate all of the values through a PivotField. I can get this to work if I write the specific value needed in the PivotField into the macro, but not a way to cycle through all of the values without naming them.

For example, a PivotField "NEW_USED" with 2 values "New" and "Used":

Sheets("Amort").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("NEW_USED").Current Page = _
"NEW"
ActiveSheet.PivotTables("PivotTable1").PivotFields("NEW_USED").Current Page = _
"USED"

Any help would be appreciated.

Questions: BitBit Moving, Walkmasks And Item Pickups.
Ok, so far have i quickly created a small program where a picture(the guy you control) moves instantly to the location of your click. Theres 3 things i must now:
1. How can i make my guy move slowly to the targeted location? not instantly.

2.How can i create walkmasks? Forexample if i create a tree, and i dont want my guy to walk right through the tree but around it.

3.How can i make my character pick up items? Forexample how can i make my guy get 10 score-points when he moves over an item, which in reality is a picture.

Edit*
I use BitBit.
This is not going to be a real game, iam just testing things out before i start creating a game.
Nothing is animated.

Dragdrop Moving Wrong Item In Listbox(aborted Dragdrop Idea)
I am using dragdrop in a list box(checkbox style) to move items around but sometimes it picks up the item below the one I selected instead of the one I clicked on. ANy ideas? heres the code I'm using

Code:

Private Sub lstFields_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) = vbLeftButton Then
nDragIndex = Y Me.TextHeight("Xyz")
If nDragIndex >= 0 And nDragIndex < lstFields.ListCount Then
blnDraging = True
End If
End If
End Sub

Private Sub lstFields_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nIndex As Integer
Dim sItem As String

If (Button And vbLeftButton) = vbLeftButton Then
If blnDraging = True Then
nIndex = Y Me.TextHeight("Xyz")
If nIndex > lstFields.ListCount - 1 Then
nIndex = lstFields.ListCount
ElseIf nIndex < 0 Then
nIndex = 0
End If
If nIndex <> nDragIndex Then
sItem = lstFields.List(nDragIndex)
lstFields.RemoveItem nDragIndex
lstFields.AddItem sItem, nIndex
End If
End If
blnDraging = False
End If
End Sub

This is my first post with code in it so I hope I did it right, sorry if I didn't.

Sunflower Queen

Moving A Listview Item And Its Subitems To A New Listview
Hey Guys,

Having a bit of trouble. I am attemping to move a selected item and its subitems from one listview to another. I have no problem getting the contents of the first column, but I can't seem to get the subitems over.

Example: I have this in the first listview:

Code:
|Item |Quanity|Price |PQ |
Bananas 2 $.50 $1.00

Then when I try to move that whole row to the other listview I can only seem to get this:

Code:
|Item |Quanity|Price |PQ |
Bananas

No subitems . Any links or help would be appreciated.

Regards,

Max_Power

Moving Listbox Item To Another Listbox
hi does anyone know of an easy way to move an item in a listbox to another listbox, lets say a source and target listbox and vice versa. thanks

How To Search Listbox For Item If Item Not Found Add Item?
Hi, lol man I cant find nothing today when I search the forum.

This my latest problem, How do I search a listbox for an item lets say "Game Over" And if the item is found the program does nothing, but if the item is not found it will add "Game Over"

Thanks Again

Code For Moving To The First Blank Cell In A Worksheet; Moving Left,right,up Or Down
I have created an application form as a userform in Excel. I need to send the data entered into my text boxes when the program runs to separate excel cells in a worksheet.

My problem is I can use code that will send the textbox entry to a specific cell eg. If my textbox is named Surname I can say

range("a5").value = surname but if I do that when I run the programme to enter the next record for someone else the first record will be overwritten.

I NEED A CODE LINE THAT WILL TAKE ME TO THE FIRST EMPTY CELL AND ALLOW ME TO MOVE DOWN OR TO THE LEFT OR TO THE RIGHT

Click Item In Listview Then Show That Item In Combo As Index = 0
Hi guys,

I have a listview (lvwUserPunchedOut) that is populated with records in a database (persons first name in one column and last name in the second column), what I am looking to do is if I select a persons name by clicking on it in the listview on frmMain, and then bring up frmSearchCriteria, i would like to show that selected name in the combobox as default (cboEmployee.ListIndex = 0) on frmSearchCriteria (the combobox is sorted = True and is also populated with first name and last name of the person)

How would this be done? Hope I make sense. Thanks in advance.

Moving Balls To Moving Images??
Please take a look at this as it is related to my question
Thread

is it possible for the create images to be an image type that is already drawn?

ComboBox List/add Item, If Item Exists, Dont Add It Again!
Dudes and Dudeesses I need help!

I have a problem with a combobox within a form. I'm scanning down the spreadsheet for values and asking a combobox to .additem, however, the same value may appear twice whilst scanning down. Is there an if statement that will look and check the combobox to see if it is already added, if so dont add it again, if not, add it?

as below,

Code:
combobox.AddItem "Hotmail"
combobox.AddItem "Yahoo"
combobox.AddItem "Hotmail"
Hotmail will be added twice, how can I stop that?

If worst comes to the worst, I can sort it out with a long winded method, but I'm hoping theres a quicker way.

Thanks for all your help

Array Handling, Adding Item, Deleting Item
Hello,

I was going to build a "buffer" and thought array would be a suitable way.
when the form loads the ArrayStart is set to 0

when data is coming in it is added to the array:

MyArray(ArrayStart)= data
ArrayStart= ArrayStart + 1

Now i would like to find out whether there is any data in this array
if there is im doing something with that data

but then i would like to simply delete that data from the array

how do do this?

Pointing Mouse At Some Item On Form Causes Info About This Item To Appear???can This
my question is that when you point the mouse at some item on the form you get some info about this item to appear, like on html page or for example when you point to the message icons in vbforum page like the lightbulb symbol it tells you that it is a lightbulb...can this be done in visual basic....

Select Item In ListBox1 And Corresponding Item In ListBox2 Is Also Selected
Hi,
Hi I have two Listboxes list1 has lets say Firstname in List1 and List2 has surnames.
How do I select an item in List1 and have it's corresponding item in List2 selected as well?

So if I select Item 6 in List1, I want item6 in List2 to be selected too.

Ken

Removing An Item From A ListBox By Clicking The Item
Hi, How do you remove an item from a ListBox by simply clicking the item u want to be removed?

This is the code i tried but it doesnt work:

Private Sub list1_Click()
Dim n As Long
Dim ncount As Long

ncount = List1.ListCount - 0
For n = 0 To ncount
List1.RemoveItem (n)
Next
End Sub

Any ideas?

-Flaw

Single Item List Box (item Not Really Selecting)
Application=Access2002

The following code has worked for me in the past but won't now for some reason.
I have a private function and/or subs that performs a few simple operations such as setting listbox rowsources and simple math functions on a form. The queries set as rowsource use criteria from other single item listboxes.
Now, for some reason, the queries won't return values until the previously .selected(0) = true (single item) list boxes have been clicked on.
Problem has only been in creating a new form. Perhaps the problem did not occur in older created forms due to compatibility?

Private Sub fraEWTo_AfterUpdate()

[Edited]
    lstRotorHoursPriorTo.RowSource = "qryRotorSwapHoursTotTo" 'gets hoursprior from tblRotors
    lstRotorHoursPriorTo.Selected(0) = True ' This is one place where the problem seems to exist, the control does not function until it has been clicked on via mouse.

    LstClockInTo.RowSource = "qryRotorSwapRAHoursIPTo"
    LstClockInTo.Selected(0) = True

    txtRACHIPTo.Locked = False
    txtRACHIPTo.Value = txtClockHoursTo.Value - lstClockInTo.Value 'nor will this until the lstClockInTo box has been manually selected

A Mechanic in a Programmers shoes
Thanks

Edited by - greenfch on 12/7/2005 11:22:52 AM

Making The First Combo Box Item Always The Selected Item
Hi.

I have a combo box with a Dropdown list Style and which is invoked several times in different parts of my form. How can I make the first item in this combo box the selected item or the default item everytime I select it? Currently, what's happening is that the last item that I selected becomes the selected item the next time the combo box is invoked. Thanks for any suggestions in advance!

List Box Item Scrolling (Next Item)
Hello,

I was wondering what the code would be for a command button to make the next item in the list box be selected?

Kind of like a NEXT button.
EXAMPLE:
List box Line 1
List box Line 2
List box Line 3
List box Line 4

If List box Line 2 is selected then clicking the next button would DESELECT List box Line 2 and SELECT List box Line 3.

If I didn't explain enough just let me know.

Stilekid007

How To Have X Item Per Page But With Item < X Data
i have crystal report with group by id
can i have 12 item each id each page
in this case i have id which have <12 item
but i want each id have 12 item and if they have <12 item give blank to other until have 12 item each id
thanks alot

Edited by - albantani on 3/22/2005 5:20:56 PM

Solved-howto Send First Item Of Listbox Totextbox, Then Delete First Item Of Listbox?
Lol another question, how do you do this

how to send first item of listbox to textbox, then delete first item of listbox?

Thanks

Change ListBox Item Text?+ Change Item Color Or Status?
hi
I'm new to VB. I want to change the text of a ListBox item.
I used AddItem to add items.
Then I tried to change a selected item using lst.Text = "somethingNew", but it doesn't work...
Pl. help

And need to know.. how to change the color of an item or status(disable) of an item???

Thanks

Get A Sub Item Of An Item On A ListView
Awhile go I used a Listview before on a project and I remember most of it. There is one thing I am having trouble with though. The list get's populated when the form is loaded. It has 2 headers "Item" and "Number". What I want to do, is when a button is pushed, msgbox the selected items number (In other words the sub item). How do I go about doing that?

How To Add Menu Item And Sub Menu Item In Outlook
Hi
I Am Developing One Application During This Application I Am Facing One Problem.what Is That Is, I Am Explaining Every Thing Clearly.in Outlook For Example One tool Menu Item Is There In This Menu Item I Want Add One Menu Item Example mailitem.in This mailitem,i Want Add Another Two Sub Menu Items Example These Names Are mailsend And mailrecieve .
How This Shoulb Be Done In Vb6?this Is Very Urgent.
Any One Knows Please Replay Immediatly.

Moving
i want to be able to have a pre drawn square in a corner of a form and allow the user to click and drag it to a new location. it sounds simple enough but i am struggling with it. does somebody have a tutorial on this stuff

Moving MDI Bar
I have created a Usercontrol as a menu, when the child forms are maximised the relevant control box for that form is above the Usercontrol, is there anyway to position it below the Usercontrol?

Edit: Ooops! Its an MDI form (maximised) with several children.

Cheers

Moving 360
how do you move a player through 360 so it walks the at 1 or 34 or whatever degrees ?

i attempted throught trig but it had its problems

Code:
Dim dir As Double
Const pi = 3.14159265358979

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
dir = dir - 10
Case vbKeyRight
dir = dir + 10
Case vbKeyUp
If dir = 90 Then
you.Top = you.Top + 10
Exit Sub
End If
If dir = 180 Then
you.Left = you.Left - 10
Exit Sub
End If
If dir = 270 Then
you.Top = you.Top - 10
Exit Sub
End If
If dir = 360 Then
you.Left = you.Left + 10
Exit Sub
End If

If dir < 90 Then
you.Left = you.Left + 10
you.Top = you.Top + 10 * Tan(dir * pi / 180)
End If
If dir > 90 And dir < 180 Then
you.Left = you.Left - 10
you.Top = you.Top - 10 * Tan(dir * pi / 180)
End If
If dir > 180 And dir < 270 Then
you.Left = you.Left - 10
you.Top = you.Top - 10 * Tan(dir * pi / 180)
End If
If dir > 270 And dir < 360 Then
you.Left = you.Left + 10
you.Top = you.Top + 10 * Tan(dir * pi / 180)
End If

End Select
If dir > 360 Then dir = 0
If dir < 0 Then dir = 360

End Sub

Moving
Ok Iam finding this really difficult to do. Iam able to move a shape upwards using this code.

Shape1.Top = Shape1.Top + Vy
When it reaches a specific point I want it to move in the opposite direction so I included this code.

If Shape1.Top = 160 Then

Shape1.Top = Shape1.Top - Vy
End If
I have put this in the timer but when top = 160 the shape stops moving. Why is this/?? Am I doing something wrong here??

Moving And Looking In D3d
Well, i have done a little 3d world and i want to be able to move in different directories and looking up & down at the same time. I made something, but if i look up(or down) and then turn left(or right) then it rotates the view so, that the camera turns on it's back (**** it's hard to say what you want, if you're not English)

Moving Down One Row
Hi all,

I've tried searching for what, I thought would be simple enough to do, a way to move down one row in my worksheet and select it.

I'm trying to read a table from a database and populate the data into a worksheet.

I've learned how to move to the left (ActiveCell.Next.Select), but after I have written the record, I want to be able to move down to the next row and to the first column.

Here's my code:

Code:
'Starting on row 2 because I have a header.
Range("A2").Select

Do Until rec.AbsolutePosition = adPosEOF

For i = 1 To rec.Fields.Count Step 1 'Loop as many times as there are fields
If ActiveCell.Column = 1 Then
ActiveCell.Value = rec.Fields(i - 1).Value
ActiveCell.Next.Select
Else
ActiveCell.Next.Select
ActiveCell.Value = rec.Fields(i - 1).Value
End If
Next i

rec.MoveNext
'Move down to next row and over to column 1
'I'd like to put "Range(CurrentRow +1 & Column 1).Select" here

Loop

Can't I do this without a row counter?
Any suggestions?
Thanks in advance.

Jason

Moving To Web With VB
If I was interested in integrating some vb into a web page, is it possible and how. Any sites you could recommend would be appreciated. I basically just need to know where to look for some direction in putting forms that function like vb listboxes on a webpage...ones that populate automatically...etc..

Or forms, when they are filled in to capture that data like textboxes..etc for use in building data files ...

Thanks in advance

Moving My Box
I have a shape (box) on my form that I want to have move across the the screen when I click on a command button. I've tried using the following on the command button but it will only work the one time:

Code:

AccVar = true

If AccVar then

Shape1.Left = Shape1.Left + 10

end if
I assume this is because VB only cycles through the code once (on each button click). I tried putting the IF statement in the Form Load but it didn't work because I assume code only triggers when the form loads. What is the best or any way of getting my box to move when the button is pressed?

Is there any tutorials on the web about moving objects in VB?

Moving
OK...

I wanna know how I can make a label move down whenever I press the down key...

can anyone help???

thanks...

Moving Exe From Within
is there a way i can move, or copy the EXE thats running into a new location?

Moving A Box ><
okay heres the deal. i have a series of images that are arranged like this

xxoxx
xxxxx
xxxxx
xxxxx
xxxxx

in a 5x5 grid of images (images are an array).
and i want to move a box around within them. what i have been doing is changing the image of each box when the user pressed the arrow keys.
so if they press 'down', the current box with an 'o' image in it would change to an 'x' image and the image below that box would become the 'o' image.
(BTW, using x and o is only for simplicity here, there is actually 5 images you can change from).

is there another way to do this? could i have one picturebox and add other pictures to that picture box and move them around within it ? is this possible?

Moving To .NET ???
I would like to ask if it is worth the move to VB.net.

I have a program in VB6 which downloads data from a dallas ibutton and simply writes that data to a .csv file for viewing in a spreadsheet.

I also use the mscomm control for hardwire communications to a microprocessor.

Is it difficult to adapt old code to vb.net ?

I have only a basic knoledge of programming, and do not want to create a monster by trying to upgrade.

Any thoughts and opinions would be appreciated.

Cheers,,,
Chris - Western Australia

Moving From VBA
Hi,

Being fairly new to programming my exploits have been largely based in Office automation using VBA. I have recently completed a project that uses Excel as the host and takes a couple of .csv files, compares and correlates the data and writes it to a worksheet prior to data manipulation and commitment to a Database.

For my next project I would like to build a stand alone app that basically does the same thing (but obviously doesn't involve Excel) but as I am not a 'trained' programmer I am not sure of the way in which a dataset should be built without somewhere to write it i.e. a cell in a worksheet.

Most of my data during the execution of the present program is contained within a number of arrays but the data is handled as a subset of the complete data.

What method would you suggest for this? Create a multi dimension array which basically functions like a worksheet?

Also the handling of writing the data to a Database is easliy handled via DAO at present from within Excel - does VB allow me to do this in the same manner?

Sorry for the general nature of the questions but I am more interested in how an experienced programmer would tackle this.

Thanks in advance.

Moving From DB To Other DB
Hi to all, I have this question:

I need to move some records from my database to other database (these DB's are equals), my porpouse is make a Backup for some records and minimize the size of the DB. I found in the MSDN library the clausule IN, but I don't know how use it.

Note: I'm using MS Access 2000 Databases

Thanks in advance !