PDA

View Full Version : vba userform move listbox1 item to listbox2



malleshg24
08-22-2021, 04:37 PM
Hi Team,

I am trying to move listbox1 value to listbox2.
code is working but it is moving all item. in case if select bottom value.
top to bottom is working.
attached sample code and workbook

:help



Private Sub CommandButton2_Click()
MoveSelectedItem Me.ListBox1, Me.ListBox2
End Sub


Private Sub CommandButton3_Click()
MoveSelectedItem Me.ListBox2, Me.ListBox1
End Sub


Private Sub MoveAllData(xSource As Object, xDestination As Object)
Dim i As Long
For i = xSource.ListCount - 1 To 0 Step -1


xDestination.AddItem xSource.List(i, 0)
xDestination.List(xDestination.ListCount - 1) = xSource.List(i)
xSource.RemoveItem (i)


Next
End Sub


Private Sub CommandButton4_Click()
If Me.ListBox1.ListIndex < 0 Then
MoveAllData Me.ListBox2, Me.ListBox1
Else
MoveAllData Me.ListBox1, Me.ListBox2
End If
End Sub



http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAoIAAAF6CAYAAACN2Tn8AAAgAElEQVR4Ae2dz4rk RraH9TjzBMbVj2PTBfkG8waDMbj7EXrpVWMw1HIewjSMoeBumtkMd9FcGnoWhrhEKk mpJSUcUJHofjzGcrZlRkKhb74xclPyj/VffnyxfEDAzJABsgAGSADZIAMtJeBjklvb9KZc acDJABMkAGyAAZ8BlABLkiyhVhMkAGyAAZIANkoNEMIIKNTjxngpwJkgEyQAbIABkgA4ggIshZI BkgA2SADJABMtBoBhDBRiees0DOAskAGSADZIAMkAFEEBHkLJAMkAEyQAbIABloNAOIYKMTz1kg Z4FkgAyQATJABsgAIogIchZIBsgAGSADZIAMNJoBRLDRiecskLNAMkAGyAAZIANkABFEBDkLJAN kgAyQATJABhrNACLY6MRzFshZIBkgA2SADJABMoAIIoKcBZIBMkAGyAAZIAONZgARbHTiOQvkLJ AMkAEyQAbIABlABBFBzgLJABkgA2SADJCBRjOACDY68ZwFchZIBsgAGSADZIAMIIKIIGeBZIAMk AEyQAbIQKMZQAQbnXjOAjkLJANkgAyQATJABhBBRJCzQDJABsgAGSADZKDRDCCCjU48Z4GcBZIB MkAGyAAZIAOIICLIWSAZIANkgAyQATLQaAYQwUYnnrNAzgLJABkgA2SADJABRBAR5CyQDJABMkA GyAAZaDQDiGCjE89ZIGeBZIAMkAEyQAbIACKICHIWSAbIABkgA2SADDSaAUSw0YnnLJCzQDJABs gAGSADZAARRAQ5CyQDZIAMkAEyQAYazQAi2OjEcxbIWSAZIANkgAyQATKACCKCnAWSATJABsgAG SADjWYAEWx04jkL5CyQDJABMkAGyAAZQAQRQc4CyQAZIANkgAyQgUYzgAg2OvGcBXIWSAbIABkg A2SADCCCiCBngWSADJABMkAGyECjGUAEG514zgI5CyQDZIAMkAEyQAYQQUSQs0AyQAbIABkgA2S g0Qwggo1OPGeBnAWSATJABsgAGSADiCAiyFkgGSADZIAMkAEy0GgGEMFGJ56zQM4CyQAZIANkgA yQAUQQEeQskAyQATJABsgAGWg0A4hgoxPPWSBngWSADJABMkAGyAAiiAhyFkgGyAAZIANkgAw0m gFEsNGJ5yyQs0AyQAbIABkgA2QAEUQEOQskA2SADJABMkAGGs0AItjoxHMWyFkgGSADZIAMkAEy gAgigpwFkgEyQAbIABkgA41mABFsdOI5C QskAyQATJABsgAGUAEEUHOAskAGSADZIAMkIFGM5BEBD98 OD4gQEZKCsDzjmeGBp4YmBdlrUumS/my2fAsj4nE8HT6eT4gQEZKCMDnz9/Ni00vPyU78tP/kmFdVnGumSemCefAev6nFQEz88s/A8CEMiegHWhQQTzF8HsQ8kAIQCBMwHr owIEiwIQOCOgHWhQQQRwbuQcQcEIBBFwLo I4JR08BGEKibgHWhQQQRwbpXDEcHgXQErOszIphu7tgTBIohYF1oEEFEsJjwM1AIZE7Auj5nK4K v79 4ruuuP2/ev2Y NQwPAvUQsC40iCAiWM/q4EggcCwB6/qcrQjeML 4565ziOCNCP CwN4ErAsNIogI7p1Z odAKwSs6zMi2EpyOE4IKAhYFxpEEBFUxI mEIDACgHr lygCPZXCIcvG3fds3u5QpMriC/u/Zull5alzfDl5ul9oft5dbeXsd 4N36fz7fRyLBenjvXvXnvhnuUx7iFQG4ErAsNIogI5pZxxgOBUglY1 ciRfBl4llnybrK4E3grj728uy67o27vc1wKn0 DtP7XlzofkYvW5/3NRTTW9/X8ZSaPsbdDAHrQoMIIoLNLB4OFAI7E7CuzwWK4AzhkehNhc63n943/X2uTcx FvqZlcOZ/rkLApkQsC40iCAimEm0GQYEiidgXZ LFcHby7Hy8q9c8QuRvJA2fVZ0 m3mb4MfP6dy4HFL76WDsC60CCCiGBL64djhcCeBKzrc4Ei2Evc6KXeXa4IxuznMvWv790beSl6 O89k0HfEDAkYF1oEEFE0DCedAWBpglY1 fyRHAkfZcsjO4LudoX0GbUZ h JJuv5w q PcOnq8o8iERAcNtIQSsCw0iiAgWEn2GCYHsCVjXZ0TwOuUTOdwkgu4igM/u U3neFX4Cpl/FELAutAggohgIdFnmBDInoB1fc5eBPv36Mn7/5w3LPdm9AXT05dwJ0J3ntL7 8bv4 uv4PmvpLl AjhqP4P8XLYff7XN4HH CYGMCWgKTcaHUf3QTqeT2yrZHz58cL4f/oMABMogoKnPIfUhQxEUsZt CGQwQeerdYPH3w /HuZe u4/Nez7Gu7Hi bMdur9DMbo9 C/O5DLgWMo/FYEAU2h8Qfk2/OTloEIXEihX2sj/RQRTAYJAQica63HsLauNY9lKIKVzDIfEqlkIts8jBgR/PrtL8dPOgYicJqCP9dW mkz6Rw1BMojoKnPc2t eh8iuFMG JDITmDpNgkBTaHxA/LtkcB0EuhZi8BNi7r2d knSbDYCQQgsJmApj6H1ANEcPOUzHUw8zLzXDPug0CmBDSFxh8CIphWAhHBTBcOw4JAAgKa owIJpgQdgGBGgloCo0/fkQQEaxxHXBMEMiRgKY I4I5ziBjgkABBDSFxh8OIogIFhBrhgiBKgho6jMiWMWUcxAQSE9AU2j86BBBRDB9StkjBNokoKn PiKA6I/17 57evaq3ZAMI1ERAU2j8cSOCiGBN edYIJAzAU19rkYEz9/H1 3xnXyX7xK8ftcfIphz BlbOgKaQuNHVZwI/vbWdd2T lTeoGz nS1fNo3pNCvtZF 0qWLPUEAAlsIaOrz2tqXxwr41PBF1rwIds/uZQu9u20RwTsk3AGBi9h5EFIo1m59uzgR/N390HXuu5//TP/VMyMR7Mfh/7LQ CdGFNMdkwjc2tyEPCb9EHwIQKAMAu2J4Pmvezy5d /8Xw/Z /2ckWwjGXAKPcmoCk0fiw1iOBUSP/4 akXw 9/cX8Ef1k2Irh3NukfAq0T0NTnkJPB7K8Inl8WfnrnXuVPwl1fxpUo3OTt9d2lcPsz /M2a2381cXbtn3L6e yPbcQaIuAptB4MjWK4Pkl3E /uO98Pfnx98CrlohgWyuFo4VAegKa lyBCPZi1v 93lf37mnu5eFLm65ztw95XNpepXGujZ 8qfhNf08/wewRAjkQ0BQaP949RfB6Ze7y0u34yt3cy7pv3cfpFbzzS8FLL/2uy1u/f3mZeG1/S48t3b/t/Ynykm5IoV9rI/3kkDvGAAEIPCagqc9ra18ey/uK4Pll4dvLwXLF7 p3Z14L8iYvKZ8/ALzQBhF8nDhaNElAU2g8oL1EcCxhf7mvlyt0Nxn83X38bSxUH3/0wjeQwYsE/jBsN/MewVuf4/6 jrZ/tL85qXy0zWR/U4ld F0ETop57K3002TQOWgIFEhAU59D6kLWItiL3 ADIq/v3NPoyp fwQXJu7TtpXGhzd22S 0KTApDhsAGAppC43ezjwjOSdVfrpfDgehNRWkkeX 6n76feWl31GZ P9dP997J50TcNH3JWEfbTPqTNg9uReBCCv1aG lnQ1zYFAIQSEhAU5/X1r48lrEIXl7eHb3Xb 6 BXlDBBPGkl3VRkBTaPyx7yKCFwEbXcnzcjQjUdOXj69fDRPUh14EF/f3bbmv5W0QwdrWD8cDgT0JaOqzyN7abb4ieBG58dc5yHt8ntztO5/XRFDaLbThiuCeWaXvggloCo0/zF1EcEb4hh/g6AWxF6 r E1F0UIEz PoXND ZkXwwRgfXPm7XpmctJMreWsFPuQx6afguDJ0CDRFQFOfQ2pAtiJ497KwTPPdy8Pzkjfefr7N/cvKS 1k59xCoA0CmkLjiewigiESNyeLw/tC piVt9tVutFL0cO RcxG981cERw9ful37j7pL/BWBC6k0K 1kX7aSDZHCYHyCWjq89ral8cyFcHpp36HEzd9ebiXt/6TxZd2gbKICA658m8I3AhoCo3fahcRXBC0zWLmRWskYjPyJjJ2EcnrB0lG281J3UxfD7e5SefS1 b 5 0XgpJjH3ko/t9nnXxCAQM4ENPU5pC7kKYKj9/fdT0d/tW/ysu/T4DsEQz9QwkvD93C5BwIXsfMgQoqIb7ePCMoHQ SrW2Y NTwVtYs8Dl8qvvsU8V2bGXm7yuLkgyah xt CXXANnOi9 g EbiQOVprI/0QfAhAoAwCbYigai54OVeFi8YQCCCgKTS uy0iOP8 4NungqcfsrhenZOrducrbrf3D//08/3fEe5lUNq8dR9HV l6Ebwfx0BAZV9DQTx/r GTu9/fsL/LcQSM8ZH4TR8XgVuTvJDHpJ AWNAEAhDIgICmPofUgDyvCKpAI4IqXDSGQAABTaHx3cWJYNxLolMhavV3EbiQQr/WRvoJiAVNIACBDAho6vPa2pfHEMEMJpUhQCA3AppC48eOCKaXWhE4Keaxt9JPbhlkPBCAwDwBTX 0OqQsViOA8KO6FAATiCWgKjd8LIogIxqeNLSEAAQ0BTX1GBDVkaQsBCFwJaAqN3wgRRASv4eEfE IDArgQ09RkR3HUq6BwCJRLonHOPfz5/7tt8 dK5Rz P9/ 67dcf9JLWor3LcpLuiGFfq2N9FNimhkzBFokgAgGzTofIAnCRKNCCDwWtxC507SpSwQfCWqZoig CtyZ5IY9JP4UsBoYJgeYJNCKCly JPn89g3zlw V29LeHl/KACC6R4f49CaQXNo3cadq2JYKPRNE/np8sisCFyN5aG lnz5VB3xCAgB2BpkTw6fYHhZUEEUElMJovEqhH7hDBEOHTtjlOEEXg1iQv5DHpZ3EJ8AAEIJAVA UQwaDoQwSBMzTdqU/JChFB7RfDDh861/fPBeaFK/XM6nYL suaECKCzRdCABRGABEcTFj/p bkpeNn93J97CaCozajl5Xn2vg bvdfu7u7r28z/ksEj/b/5J6eOjf6m8iXHbw8d64bje22Z/61hQCiFyJ9c200Ing6dY6fOQYn50Vt7581yQt5DBHcUmPYFgLpCSCCF bjvzfs3FimbqJ2e3n51b0bidhcG995mAi 3KzzPKLz/juRwYW X55dd20j4enbPk/6k0e51RBA/OakLuY jQg lQxj3/ZfNUuROhi2yCCmhpDWwgcT BAEXz8NRLzBf/L eUSf1Yc/t9NpMZX3eSK2oysvb5zT13neqGaedzv/CxiT65/6 FCmyARnDmS2L5n5XCmf 66EED2YsROuw0iGFvv1rbLUwgRQYorBMoiUKAI9u8d8i8dzT8ZzU3AkqRd2o6kT7bvt1kVwdF2S/uYu3/uPudGLztf/gD9umROr1xefudyoEziyu1Sfrh/fl1t44IIrgmdxWP5SCEiuFJ2eAgCGRKoUASHT1hCfF685NH yp68N3B8278UvLC9mQj2/XedXF0MvdrovD26J9lu O/rwfGPG4FhNvj3HsK31CciaCF7oX0cK4WI4K3i8C8IlECgchG8Pdk/d517enf7ffSENRK6uWlbE0GRt4U2IS8Nj14Gvux/dN9S375t/15FL6znK4p8SGQwgQvzHfCXMEb5oP3C1fdwvohgqMRZtTtOBhHBQQninxAogAAieHmSnxdFmcF5 Eetfyh1/oOP2YZK1bSf9jaTvst3ovkl76fpy2wvgs3t kvc0Tho092u4oCB8aVghglaCp 0nvRAigs0VXA64cAKI4EUEX9/1Lwm/e709Mfr75HcviqNP6F6uIt7Eb1nWxp9Avnza HyF8rWPz0Jft5eKl/s d3DZfjS woMZN/zb3CF4ebFABLUCZ9UeEYyrJWwFgXYIIIKDl/1EBq fLH7q3OvwiuFzd/4ksTzev9QsYVmTtf6xfjv/UvJM2/MVQHl/4pN7985/Ncyjl51l361 SCQv2UE l cDEbQSu9h 0gkhVwRvdZl/QaAEAs2IYJon6YOm/HxFUKTxoDEk2 2ybKSZY/YfwxkRjBU46 32F0JEMFkxZEcQMCGACA6uCMY8wS1vYzI/QZ3U/yER5Gs5Z2WwQQSthS62P0QwqKjSCAINEUAEdxPBuSfoPZI18zLzHrvZvc85XtxXugDK O1EMFZkYsWpxu1iGYZtxxXB3YslO4CAKYGiRdC/5879o39fXXm3f3P9 Fu/LXX GPf8 pvPs3Whif3zZ9u3q0EMw4QulhUiaPocTWcQ2J2AdX3uworHtmL64UP/B9nP8vf3znVF//zLdX9v8af0eStl/Mdny/3jb8660ITVmX2FZ34M22rb/J/VtO5zXy6I4O7P2 wAAqYErOtzUhE8fwq3aAmcysTxT9r7Sen0WPk9/ASm8Fx0XUMiuCRZ1jK3tb lcW6/HxE0fY6mMwjsTqBoESztiuCL69zrPy0FKBdBsDymVvrKZe72H0dbVwRDRWqryG3dPnSc naI4O7P2 wAAqYEihZBzRVBL2H jevv39 Lxvv/9I/ZStr9fuxF8H4fy1eZQp/wNX3Sdpn3kE0o 0rbcUXQzb MPJWsrXKn3X66f5vfEUHT52g6g8DuBIoWQc0VQRFB92n4BN257v3tS6PrFsHJcVf1kvrRx1apwB m9d1V7RXD3qpf9DlJ9Wv4exOl0CpTWZWlEBO 5cg8EciZQtAhqrwi fOoL7PNAgt78s3NeDlNcrUuxj7ArVEeLU2n7R/Q2vXdUeUXQF0xfmPgRBv49lnv8SP/9rQhc2NVLRDDnJ3bGBgENgQxFcK7AjF/yiPnUsJewl1974fO3Ikz fv9y8VTS/O/yHWhyOxRIaX8WyUtbeXx433nby1VI2UZeivaP7X0VUo6T29uch7FA/jbJ3 BqYswVQV Yvn77i587Bp37 s3qZ8wXEdQ8ddIWAvUQKEQEx3LYF6zL3 UdXN1be4L3EuYF8Cxp/ ncG7/dr51zl3 LpEkfzwNZ9Pc9T64m vZzIicSOHwv4stgH36bq4j6/S 8b1HGwa1W4La2RwCtBPDaT QVQURwLGpjHhYyOO4fEazniZ0jgYCGQMEieHL SsP1yeZ6BWJeBEQE5T2BXtS83MkVuakI3gnYRNqW2i/d7/ube2zuvrt9B8ou283P/WMuyN/9OrJjwhXBsXCNhW7LY7YyiAhqnjppC4F6CBQtgv17BEOesP7tXpxzL7/6tv/j/Euzr14CXefk5dw5IZOre/6qnfzIlb659iKZ1yt E4Gb22buvsfiEis8bNezDckMbczkkCuCO7/EvUUIbyKKCNbzxM6RQEBDoGgRnL8iOPcEPhTBf7nu1//rGX369 WK4v3VOi9oo5dtQ64IXtoggrkJ51wmuM9M9K5X4 eZckXwJlt2VwOnfW6XQURQ89RJWwjUQ6BoEYy7IuifrCZiePn99Z//04vhWRT/O/7OwRARvHwVDSKYiwjOi0kqAWI/F/5cEdz5iqBIYawM9tvLh/DC/szd H3bw08ai1DW8zTJkUCgbgJFi2D0FcG7Kxi9GN6L4EAkQkRw4X2A8lLv3MvAc/dJe25jhXIwb3dzzWOpBZUrgiJqKW5jZbBzOhGUb3K4F0JEsG5p4OjqI1C0CMZfEZzKwEQE3/ ve3XOXcXwcsXQOX V0G97/1KySJu8r1DeS3huO/jUsHw4RdojgrGy57ebziO/Z8mEK4KJrggORVMvhHEiKEIot18cIlifKHBEdRMoWgR3uyLoBUPeR3ie// 69//07ysUEZyI41lIbkIjMigfMJG/ZjInfXP3iSRye2Pas0D0shS9B0LOFcGhoKX691Ei6K8sfnD L5TwHwQgUAaBokUw/IpgaoGYCgy/x0tt6rljf ayyRXBA64IeuHUyaDNFUF5iRkRLEMBGCUE r/k5DkM3 u75d9d2MbyMsLS7f37Tob9Xs84Z79HMKcncgRQL4A5zR9jsZDC4q8I/vbWdd//4v64 ysfC1f3tO1D 1W3O1IE/bcu8B8EIFACgQyvCHo5DBNBf0Xw/PJwkbf9X0Zx/2j99m u7Hlk/CHzpyk0vnD69vt91cqCwC2K1u/uh 7yl4y6t 7jYjvpV9tetrO RQRLeBJmjBA4moCmPj/yM/942iuCR9Mz3//ti6uv7y8cfJl1 feZA6PDQghoCo0/pLxEUATtT/fT9yKET 6nT3L/0q22/VI/W 4Pl0Hbl4a5IljI0mSYEDjXW48hRPJC2iCCu4cqZ1nc/eDZQaEE6hDBm5B9/FEjhH85bXu7q6GIYKFLhmFDIBkBTX1OKILrLw9f3yOYDBM7ggAEthDQFBq/nzyvCN5EUETtj5 fzm9t OG3 8ekzfBW2364bfy/w2SQK4JbEs62ECiXgKY I4LlzjMjh8ChBDSFxg80dxHUXuHTto XvjkhRQQPDT87h0DmBDT1GRHMfDIZHgRyJaApNP4Y8hTB4Xv Qj40om0/J3EW9yGCua4LxgWBHAho6nNiEVx eZiXhnOIDmOAQDgBTaHxveYlgtpPAWvbW8jeWh IYHhSaQmB9gho6jMi2F4 OGIImBDQFBq/w6xEUPu9gNr2D7 OZk3yQh5DBE1CTCcQqJSApj4jgpWGgMOCwN4ENIXGjyUrEdxd1EJkbmubxzLIh0X2XgX0D4E8CW jq8wEiOP/yMC8N5xkmRgWBJQKaQuP7QAS3it/c9usyiAgupZf7IVA3AU19RgTrzgJHB4HdCGgKjR8EIjgnclvvQwR3CzgdQ6BgApr6fJAI3l8V5I pgwYlj6E0S0BQaDwgR3Cp9c9uHiuDwT3z6 qv7kSuLTQadg4ZAgQQ09flAERzLICJYYNIYctMENIXGg0IE50Ru3/ukrt4XekSw6cXLwVdPQFOf7 vD8MSx/3fgn5jzjXXFpW/f70QKVvWzwwFCoBICmkLjDxkR3Ff65r6wWurquNDr6zRXBCtZtBxGMwQ09XlcH 4l0D OCDYTHQ4UAuEENIXG94oIHi2CegGUk3tEMHxd0BICORDQ1OcMRNAXpy9OzlxzAMgYIACBxwQ0hc b3hggeJYLxAogIPl4HtIBAjgQ09dlYBONfHkYEc4wSY4LAMgFNofG9IIIpRbD/EIlcyROhi72VfpbTwCMQgEBOBDT1ORMR7LgimFOCGAsEAghoCo3vzp/s8bMnA19H739OJ64IBsSZJhCoioCmPiOCVU09BwOBdAQ0heZ0Ojl tjDonBe62J/YK4GyHVcE060r9gQBCwKa pyRCPoid7I4fvqAAAQSELAuNCHFqI0226/gicBZ3SKCCRYUu4CAIQHr qz41LB87FhfyCg0hgmgKwgkIGBdaNqQPKmRse n1tdWCxns6zMn6gmWFbuAgAkB6/qcWAQ755z/4T8IQCBnAtaFpg4RPEbULGRvrQ9EMOeVyNggcE/Auj4jgveMuQcCzROwLjT5imCdcrcmftPH FaH5pc7AAojYF2fI0RQ/7LH7aVhuSI4vC1sBhguBBogYF1o8hBBpG8qgf53RLCBBc0hVkXAuj5nIIJDKeRl46rSysEUS8C6 0KQRQURvTvTW7 ML/4tdpAy8WQLW9TlSBHVXBdevCE5FcPh7s/PMgUPgUALWhWYfEUT81iXvEZ/ wy1cETx0qbFzCKgJWNfnzEUQKVQnhA0gYEDAutBsF8FHUsPjOinsJdDPCyJosGDoAgIJCVjX54J EEClMmDN21TgB60IzL4LIm07eLHkhgo0vcQ6/YALW9XmDCIa/PBz/0vBQ/mL XfBMM3QIHEggrtBYigp97SeJNwnkiuCBi4xdQyCSQFx9Hq/74cn5RhEMk8HjRDBGHvfcJnLW2QwCiQncFxrEbD8xS8V2/omAl4YTLy52B4GNBO7r8/zaHsre2r8NRPCxDCKC1nK5MUVsDoErgflsfv7c31 /KSSrNz3s/xEgQheFwP/gEARBBDB818mmX/y6v9qCY l5VDEuslokGXkExHMXexCx7csgHKFABHMqDwwFAgEEMhUBNevCnJFsIwn/7QCCZOceSOCoaKVY7vH8icS6G8RwYBnXppAICMCiCBXBC9/rxmRylmkSh8bIpij4K2NSSd/iGBGz oMBQJKAhmL4PJVQa4IIm2li1Fr40cE16Qrh8fixW8ogVwRVD4D0xwCGRDIXATnZRARRARbE6nSj 1cjgqUfa37jD3 mOZ1Obip22t95aTicNy0hkAOBAkTwXgYRQUQwvydb5mRtTrQi6Nvzo2Xw2fmCHvsjAqcVv2l76S eHJzjGAAEIPCZQiAiOZRARRDrWpIPH8stHjAh /dY5foTBX 7rt31/ROCmYqf9Xfp5/PRDCwhAIAcCBYngTQYRwfye6JEv5mQtA4igCN30dl 508ijCJxW/KbtpZ8cnuAYAwQg8JhAYSLYyyAiiHSsSQeP5ZcPRDAf4VuSQxG4qdhpf5d Hj/90AICEMiBQIEiOPyeqvye8JAQ5oQM3GegbhHMX/KW5G94vwicVvym7aWfHJ7gGAMEIPCYQOEiOD3A ycgnpRhQgaOz0BdIliH A0l0P9bBG4qdtrfpZ9pdeZ3CEAgTwKViaBAPv6JD/lgDsjALQNli2Cd4ocIyvMFtxBom0ClIjg3qbcnJZ6gYUEG0mYgXxFsQ/Km0jf3u1zJ014BnLaXfuaqMPdBAAL5EWhIBOfgp30yRD7g3WoG0oogcjcneo/uE4Gbip32d lnruJyHwQgkB BxkUwZkKQmVZlhuOOz/42EUTsHkmcxeMicFrxm7aXfmKqK9tAAALpCSCC6Zlv3GP8kzEiA7ujMrAsgv4rocY/foH4wmQhN/QRLtEicNP50P4u/WwsdGwOAQgkIoAIJgKd924QpKMEqc793qddU2j81uWI4J/up 8798NvocKlbR/a7/Z2InBa8Zu2l37uU8A9EIBAjgQ09Xm63ud 7 butHedJ8AAABqUSURBVL6PQpNjlBgTBJYJaAqN7yV/Efzd/dB1rjv/vHUfH/75N2377WKnvRoqdXVrvZZ ltPAIxCAQE4ENPU5pD4ggjnNLmOBQCYENIXGDzlbEfz0i/tOBPD7X9wfjwRQ2/5Rfzs LgIXUujX2kg/mUSPYUAAAg8IaOrz2tqXxxDBB8B5GAItEtAUGs8nOxH87e3l6l/nuh9/f/z RW37HQUv9MqgCJwU89hb6afFnHPMECiRgKY h9QFRLDEFDBmCOxMQFNo/FCyEsGL1H3385 PBdALnbZ9BhLoZVEELqTQr7WRfnaOFN1DAAJGBDT1eW3ty2OIoNHE0A0EaiKgKTT uLMSQS9qw5d4Q64IattnIIMicFLMY2 ln5ryy7FAoGYCmvocUhcQwZrTwrFBIJKAptD4XWQngiJqQ8HjPYJ3X/3jnyQQwchFwmYQOIiApj4jggdNEruFQOkENIXGH2u2IihC E37KWBtez41XHrmGT8ESiGgqc IYCmzyjghkBkBTaHxQ89fBEXUtN8LqG0v 9n/Vq7khRT6tTbST2YRZDgQgMACAU19Xlv78hgvDS A5m4ItExAU2g8p3JEcH9BC/3U79Z2InBSzGNvpZ W886xQ6AkApr6HFIXEMGSZp xQiARAU2h8UNCBNMLpghcSKFfayP9JIoWu4EABDYS0NTntbUvjyGCGyeEzSFQIwFNofHHjwgigj WuA44JAjkS0NRnkb21W0Qwx1lmTBA4mICm0PihIoKI4MGRZfcQaIaApj6vCaA8hgg2Ex0OFALhB DSFxveKCCKC4emiJQQgsIWApj6L7K3dIoJbZoNtIVApAU2h8QgQQUSw0qXAYUEgOwKa rwmgPIYIpjdFDMgCBxPQFNo/GgRQUTw NQyAgi0QUBTn0X21m4RwTZyw1FCQEVAU2h8x4ggIqgKGI0hAIFoApr6vCaA8hgiGD0VbAiBeglo Co2ngAgigvWuBo4MAnkR0NRnkb21W0Qwr/llNBDIgoCm0PgB i4yc9g9PpNPv3g9eK/vQxvkcwiyXHICAQTEBTn6frfe53RDAYPQ0h0A4BTaHxMsLPcQzmCrvmPkSwnXXNkdZBQFOfQ2oB IlhHLjgKCJgSsC40IcWINl82X92LYYgImi4dOoPA7gSs6zMiuPuUsQMIlEfAutDECArbpBFDRLC 89cmI2yZgXZ8RwbbzxNFDYJaAdaFB6tJIXQxnRHB2CXAnBLIlYF2fEcFsp5qBQeA4AtaFJkZQ2C aNPCKCx60z9gyBGALW9RkRjJkFtoFA5QSsCw1Sl0bqYjgjgpUvZg6vOgLW9RkRrC4iHBAEthOwL jQxgsI2aeQREdy XugBAikJWNdnRDDl7LEvCBRCwLrQIHVppC6GMyJYyKJkmBC4ELCuz4gg0YIABO4IWBeaGEFhmzT yiAjexZ87IJA1Aev6jAhmPd0MDgLHELAuNEhdGqmL4YwIHrPG2CsEYglY12dEMHYm2A4CFROwLj QxgsI2aeQREax4IXNoVRKwrs IYJUx4aAgsI2AdaFB6tJIXQxnRHDbWmFrCKQmYF2fEcHUM8j IFAAAetCEyMobJNGHhHBAhYkQ4TAgIB1fUYEB3D5JwQg0BOwLjRIXRqpi GMCLLqIVAWAev6jAiWNf MFgJJCFgXmhhBYZs08ogIJllS7AQCZgSs6zMiaDY1dASBeghYFxqkLo3UxXBGBOtZtxxJGwSs6z Mi2EZuOEoIqAhYF5oYQWGbNPKICKqWBo0hcDgB6/qMCB4 pQwAAvkRsC40SF0aqYvhjAjmt/4YEQTWCFjXZ0RwjTaPQaBRAtaFJkZQ2CaNPCKCjS5yDrtYAtb1GREsNgoMHAL7EbAuNEhdGqmL4 YwI7reO6BkCexCwrs I4B6zRJ8QKJyAdaGJERS2SSOPiGDhi5XhN0fAuj4jgs1FiAOGwGMC1oUGqUsjdTGcEcHH64EWEM iJgHV9RgRzml3GAoFMCFgXmhhBYZs08ogIZrLoGAYEAglY12dEMBA8zSDQEgHrQoPUpZG6GM6IY Esrm2OtgYB1fUYEa0gFxwABYwLWhSZGUNgmjTwigsaLh 4gsDMB6/qMCO48YXQPgRIJaApNicdXy5hPp5PbKsyIYC1p4DhaIaCpzyH1ARFsJTkcJwQUBDSFxnfr2/OTloEIXEihX2sj/SjiQVMIQOBAApr6vLb25TFE8MDJZNcQyJWAptD4Y/Dtv377i5 EDETgpJjH3ko/uWaRcUEAAmMCmvocUhcQwTFffoMABC5i50GEFBHfDhFML8EicCFztNZG iH4EIBAGQQQwTLmiVFCoGgCmkLjDxQRRASLDjyDh0BBBDT1ee0kUB7jimBBk89QIZCKgKbQ DEhgohgqmyyHwi0TkBTn0X21m4RwdYTxfFDYIaAptD4zRFBRHAmRtwFAQjsQEBTn9cEUB5DBHeY JLqEQOkENIXGHysiiAiWnnnGD4FSCGjqs8je2i0iWMrMM04IJCSgKTR WIggIpgwnuwKAk0T0NTnNQGUxxDBpuPEwUNgnoCm0PgeEEFEcD5J3AsBCFgT0NRnkb21W0TQeob oDwIVENAUGn 4iCAiWEHsOQQIFEFAU5/XBFAeQwSLmHYGCYG0BDSFxo8MEUQE0yaUvUGgXQKa iyyt3aLCLabJY4cAosENIXGd5JGBP90P33fuR9 C5UubftBv7 9dd33v7g/Qv9SiLZ9aL8r7eSLoNcKfMhj0s9iGHgAAhDIioCmPofUAEQwq llMBDIg4Cm0PgR7yuCv7sfus5155 37uOKHPV/5k7bfiCA1761fWjbz 1Td58IXEihX2sj/eSRPEYBAQg8IqCpz2trXx5DBB8R53EINEhAU2g8nl1E8NMv7jsRwJCrc9r2V lbE7D qmIvoU/up09rbf1j2vaP lt XAROinnsrfTTYMw5ZAgUSUBTn0PqAiJYZAwYNAT2JaApNH4kpiLoX2YVAfzxd9df5VsWoq/a9kECeL /jz/KVckQIfzLads/PM7JuEXgQgr9WhvpZ99E0TsEIGBFQFOf19a PIYIWs0M/UCgIgKaQuMP20wEL1L33c9/PhZAL0ba9hOZ0sqXb//Hz09nUQ19r6K2feiYROCkmMfeSj8VxZdDgUDVBDT1OaQuIIJVx4WDg0AcAU2h8XswE0EvasOXeE OuCGrbR8qg9gqftn2oAEo7EbiQQr/WRvqJSwpbQQACqQlo6vPa2pfHEMHUM8j IFAAAU2h8YdjKoIiakPBy I9giEfVBm RzCk/f1L0CJ6j25F4KSYx95KPwXEkiFCAAKXeutBxK756XaIILGCAATuCGQhgiKE37SfyNW2n5MxbR/a9nP71N0nAjct6trfpZ 7EHAHBCCQJQFNfQ6pB4hgltPMoCBwLAFNofEj3eWK4FUERZC03wuobS/7ubz3MOQqpIzRv1dR016223ArAhdS6NfaSD/HJo69QwACoQQ09Xlt7ctjiGAoedpBoCECmkLjsaQRwYGobRCoRy 5lvK4CJwU89hb6aeheHOoECiagKY h9QFRLDoODB4COxDQFNo/AgQwfSSKgIXUujX2kg/ ySJXiEAAWsCmvq8tvblMUTQeoboDwIVENAUGn 4iCAiWEHsOQQIFEFAU59F9tZuEcEipp1BQiAtAU2h8SNDBBHBtAllbxBol4CmPq8JoDyGCLabJY 4cAosENIXGd4IIIoKLYeIBCEDAlICmPovsrd0igqbTQ2cQqIOAptD4I0YEEcE6ks9RQCB/Apr6vCaA8hgimP cM0IIJCegKTR cIggIpg8pOwQAo0S0NRnkb21W0Sw0SBx2BBYI6ApNL4fRBARXMsTj0EAAnYENPV5TQDlMUTQbm7 oCQLVENAUGn/QiCAiWE34ORAIZE5AU59F9tZuEcHMJ5zhQeAIAppC48fnv4uOn/QMTqfT5r83yvcIHrHC2CcE4glo6vOaAMpjiGD8XLAlBKoloCk0Xkb4OY6BFPPYW0Sw2mXMgVVKQ FOfQ oCIlhpUDgsCGwhYF1oQooRbb5svroXwxAR3LJS2BYC6QlY12dEMP0cskcIZE/AutDECArbpBFDRDD75cgAITAiYF2fEcERXn6BAAQ8AetCg9SlkboYzoggax4CZRGwrs IYFnzz2ghkISAdaGJERS2SSOPiGCSJcVOIGBGwLo I4JmU0NHEKiHgHWhQerSSF0MZ0SwnnXLkbRBwLo I4Jt5IajhICKgHWhiREUtkkjj4igamnQGAKHE7Cuz4jg4VPKACCQHwHrQoPUpZG6GM6IYH7rjxF BYI2AdX1GBNdo8xgEGiVgXWhiBIVt0sgjItjoIuewiyVgXZ8RwWKjwMAhsB8B60KD1KWRuhjOiO B 64ieIbAHAev6jAjuMUv0CYHCCVgXmhhBYZs08ogIFr5YGX5zBKzrMyLYXIQ4YAg8JmBdaJC6NFI XwxkRfLweaAGBnAhY12dEMKfZZSwQyISAdaGJERS2SSOPiGAmi45hQCCQgHV9RgQDwdMMAi0RsC 40SF0aqYvhjAi2tLI51hoIWNdnRLCGVHAMEDAmYF1oYgSFbdLIIyJovHjoDgI7E7Cuz4jgzhNG9 xAokYB1oUHq0khdDGdEsMQVyphbJmBdnxHBltPEsUNggYB1oYkRFLZJI4 I4MIi4G4IZErAuj4jgplONMOCwJEErAsNUpdG6mI4I4JHrjT2DQE9Aev6jAjq54AtIFA9AetCEy MobJNGHhHB6pczB1gZAev6jAhWFhAOBwIWBKwLDVKXRupiOCOCFiuGPiCQjoB1fUYE080de4JAM QSsC02MoLBNGnlEBItZlgwUAmcC1vUZESRYEIDAHQHrQoPUpZG6GM6I4F38uQMCWROwrs IYNbTzeAgcAwB60ITIyhsk0YeEcFj1hh7hUAsAev6jAjGzgTbQaBiAtaFBqlLI3UxnBHBihcyh1 YlAev6jAhWGRMOCgLbCFgXmhhBYZs08ogIblsrbA2B1ASs6zMimHoG2R8ECiBgXWiQujRSF8MZE SxgQTJECAwIWNdnRHAAl39CAAI9AetCEyMobJNGHhFBVj0EyiJgXZ8RwbLmn9FCIAkB60KD1KWR uhjOiGCSJcVOIGBGwLo I4JmU0NHEKiHgHWhiREUtkkjj4hgPeuWI2mDgHV9RgTbyA1HCQEVAetCg9SlkboYzoigamnQGAK HE7Cuz4jg4VPKACCQHwHrQhMjKGyTRh4RwfzWHyOCwBoB6/qMCK7R5jEINErAutAgdWmkLoYzItjoIuewiyVgXZ8RwWKjwMAhsB8B60ITIyhsk0YeEcH91hE9Q 2APAtb1GRHcY5boEwKFE7AuNEhdGqmL4YwIFr5YGX5zBKzrMyLYXIQ4YAg8JmBdaGIEhW3SyCMi Hg90AICORGwrs IYE6zy1ggkAkB60KD1KWRuhjOiGAmi45hQCCQgHV9RgQDwdMMAi0RsC40MYLCNmnkERFsaWVzrD UQsK7PiGANqeAYIGBMwLrQIHVppC6GMyJovHjoDgI7E7Cuz4jgzhNG9xAokYB1oYkRFLZJI4 IYIkrlDG3TMC6PiOCLaeJY4fAAgHrQoPUpZG6GM6I4MIi4G4IZErAuj4jgplONMOCwJEErAtNjK CwTRp5RASPXGnsGwJ6Atb1GRHUzwFbQKB6AtaFBqlLI3UxnBHB6pczB1gZAev6jAhWFhAOBwIWB KwLTYygsE0aeUQELVYMfUAgHQHr owIpps79gSBYghYFxqkLo3UxXBGBItZlgwUAmcC1vUZESRYEIDAHQHrQhMjKGyTRh4Rwbv4cwcE siZgXZ8Rwaynm8FB4BgC1oUGqUsjdTGcEcFj1hh7hUAsAev6jAjGzgTbQaBiAtaFJkZQ2CaNPCK CFS9kDq1KAtb1GRGsMiYcFAS2EbAuNEhdGqmL4YwIblsrbA2B1ASs6zMimHoG2R8ECiBgXWhiBI Vt0sgjIljAgmSIEBgQsK7PiOAALv EAAR6AtaFBqlLI3UxnBFBVj0EyiJgXZ8RwbLmn9FCIAkB60ITIyhsk0YeEcEkS4qdQMCMgHV9Rg TNpoaOIFAPAetCg9SlkboYzohgPeuWI2mDgHV9RgTbyA1HCQEVAetCEyMobJNGHhFB1dKgMQQOJ 2BdnxHBw6eUAUAgPwLWhQapSyN1MZwRwfzWHyOCwBoB6/qMCK7R5jEINErAutDECArbpJFHRLDRRc5hF0vAuj4jgsVGgYFDYD8C1oUGqUsjdTGcEcH91hE9Q 2APAtb1GRHcY5boEwKFE7AuNDGCwjZp5BERLHyxMvzmCFjXZ0SwuQhxwBB4TMC60CB1aaQuhjMi Hg90AICORGwrs IYE6zy1ggkAkB60ITIyhsk0YeEcFMFh3DgEAgAev6jAgGgqcZBFoiYF1okLo0UhfDGRFsaWVzrD UQsK7PiGANqeAYIGBMwLrQxAgK26SRR0TQePHQHQR2JmBdnxHBnSeM7iFQIgHrQoPUpZG6GM6IY IkrlDG3TMC6PiOCLaeJY4fAAgHrQhMjKGyTRh4RwYVFwN0QyJSAdX1GBDOdaIYFgSMJWBcapC6N 1MVwRgSPXGnsGwJ6Atb1GRHUzwFbQKB6AtaFJkZQ2CaNPCKC1S9nDrAyAtb1GRGsLCAcDgQsCFg XGqQujdTFcEYELVYMfUAgHQHr owIpps79gSBYghYF5oYQWGbNPKICBazLBkoBM4ErOszIkiwIACBOwLWhQapSyN1MZwRwbv4cwcE siZgXZ8Rwaynm8FB4BgC1oUmRlDYJo08IoLHrDH2CoFYAtb1GRGMnQm2g0DFBKwLDVKXRupiOCO CFS9kDq1KAtb1GRGsMiYcFAS2EbAuNDGCwjZp5BER3LZW2BoCqQlY12dEMPUMsj8IFEDAutAgdW mkLoYzIljAgmSIEBgQsK7PiOAALv EAAR6AtaFJkZQ2CaNPCKCrHoIlEXAuj4jgmXNP6OFQBIC1oUGqUsjdTGcEcEkS4qdQMCMgHV9Rg TNpoaOIFAPAetCEyMobJNGHhHBetYtR9IGAev6jAi2kRuOEgIqAtaFBqlLI3UxnBFB1dKgMQQOJ 2BdnxHBw6eUAUAgPwLWhSZGUNgmjTwigvmtP0YEgTUC1vUZEVyjzWMQaJSAdaFB6tJIXQxnRLDR Rc5hF0vAuj4jgsVGgYFDYD8C1oUmRlDYJo08IoL7rSN6hsAeBKzrMyK4xyzRJwQKJ2BdaJC6NFI XwxkRLHyxMvzmCFjXZ0SwuQhxwBB4TMC60MQICtukkUdE8PF6oAUEciJgXZ8RwZxml7FAIBMC1o UGqUsjdTGcEcFMFh3DgEAgAev6jAgGgqcZBFoiYF1oYgSFbdLIIyLY0srmWGsgYF2fEcEaUsExQ MCYgHWhQerSSF0MZ0TQePHQHQR2JmBdnxHBnSeM7iFQIgHrQhMjKGyTRh4RwRJXKGNumYB1fUYE W04Txw6BBQLWhQapSyN1MZwRwYVFwN0QyJSAdX1GBDOdaIYFgSMJWBeaGEFhmzTyiAgeudLYNwT 0BKzrMyKonwO2gED1BKwLDVKXRupiOCOC1S9nDrAyAtb1GRGsLCAcDgQsCFgXmhhBYZs08ogIWq wY oBAOgLW9RkRTDd37AkCxRCwLjRIXRqpi GMCBazLBkoBM4ErOszIkiwIACBOwLWhSZGUNgmjTwignfx5w4IZE3Auj4jgllPN4ODwDEErAsNU pdG6mI4I4LHrDH2CoFYAtb1GRGMnQm2g0DFBKwLTYygsE0aeUQEK17IHFqVBKzrMyJYZUw4KAhs I2BdaJC6NFIXwxkR3LZW2BoCqQlY12dEMPUMsj8IFEDAutDECArbpJFHRLCABckQITAgYF2fEcE BXP4JAQj0BKwLDVKXRupiOCOCrHoIlEXAuj4jgmXNP6OFQBIC1oUmRlDYJo08IoJJlhQ7gYAZAe v6jAiaTQ0dQaAeAtaFBqlLI3UxnBHBetYtR9IGAev6jAi2kRuOEgIqAtaFJkZQ2CaNPCKCqqVBY wgcTsC6PiOCh08pA4BAfgSsCw1Sl0bqYjgjgvmtP0YEgTUC1vUZEVyjzWMQaJSAdaGJERS2SSOP iGCji5zDLpaAdX1GBIuNAgOHwH4ErAsNUpdG6mI4I4L7rSN6hsAeBKzrMyK4xyzRJwQKJ2BdaGI EhW3SyCMiWPhiZfjNEbCuz4hgcxHigCHwmIB1oUHq0khdDGdE8PF6oAUEciJgXZ8RwZxml7FAIB MC1oUmRlDYJo08IoKZLDqGAYFAAtb1GREMBE8zCLREwLrQIHVppC6GMyLY0srmWGsgYF2fEcEaU sExQMCYgHWhiREUtkkjj4ig8eKhOwjsTMC6PicTQT9wfmBABsrJgK9lyFgaGTuSsxdB1mU565K5 Yq58BizrcxIR3FmO6R4CENiJwJGCwr7TSOhO0aFbCEBgZwJWNTKJCFoNln7SPDHAGc5kgAyQATJ ABtrIACL4pY2JZkEzz2SADJABMkAGyMA0A4ggIsj7wMgAGSADZIAMkIFGM4AINjrx0zMCfucskQ yQATJABshAexlABBFBzgLJABkgA2SADJCBRjOACDY68Zz1tXfWx5wz52SADJABMjDNACKICHIWS AbIABkgA2SADDSaAUSw0YmfnhHwO2eJZIAMkAEyQAbaywAiiAhyFkgGyAAZIANkgAw0mgFEsNGJ 56yvvbM 5pw5JwNkgAyQgWkGEEFEkLNAMkAGyAAZIANkoNEMIIKNTvz0jIDfOUskA2SADJABMtBeBhBBRJC zQDJABsgAGSADZKDRDCCCjU48Z33tnfUx58w5GSADZIAMTDOACCKCnAWSATJABsgAGSADjWYAEW x04qdnBPzOWSIZIANkgAyQgfYygAgigpwFkgEyQAbIABkgA41mABFsdOI562vvrI85Z87JABkgA 2RgmgFEEBHkLJAMkAEyQAbIABloNAOIYKMTPz0j4HfOEskAGSADZIAMtJcBRBAR5CyQDJABMkAG yAAZaDQDiGCjE89ZX3tnfcw5c04GyAAZIAPTDCCCiCBngWSADJABMkAGyECjGfh/3mKmN8voYosAAAAASUVORK5CYII=

Thanks
mg

werafa
08-26-2021, 04:02 AM
Hi,
your request is unclear.
you seem to be saying that you wish to move the 'selected item' from one listbox into a second listbox, or at least control which parts of the list are transfered.

it seems that you will need to use the listindex.
you can get the index of the selected item
you can also loop through all items in a listindex and use logic to control what happens at each listitem.

hope this gives you something

Werafa

Jan Karel Pieterse
08-26-2021, 07:42 AM
Change your move code to:

Private Sub MoveSelectedItem(xSource As Object, xDestination As Object)
Dim i As Long
For i = 0 To xSource.ListCount - 1
If xSource.Selected(i) Then
xDestination.AddItem xSource.List(i, 0)
xDestination.List(xDestination.ListCount - 1, 1) = xSource.List(i, 1)
End If
Next
For i = xSource.ListCount - 1 To 0 Step -1
If xSource.Selected(i) Then
xSource.RemoveItem (i)
End If
Next
End Sub