excel - how to lock ActiveX button to specific column index -

-

I have to lock an active column in a specific column index when clicked, the button runs VBA code Deletes three columns, and then when unchecked, VBA code essentially undo this past deletion, and then inserts 3 new columns.

The VBA code works fine. The problem is that the command button only keeps my sheet sliding down to three columns at a time, unless it is sitting at the top of my data.

I have tried to lock / unlock the button, but it does not make any difference.

I would like to know if there is any way that I can lock this command button instead of just one specific column in the specific column index . For example, I want to lock it into column index 10, which is column J. In this way, when the button becomes active and the rows are removed / replaced, the button is placed in the column in column 10.

These are before and after pictures of this problem: before

after

There is also VBA code which is run on every press (Not sure that it is relevant but I thought it could not hurt to include): 

  Private sub-checkbox 1_Click () Dim Array1 () as string ' Creates a dynamic array, dim thermal worksheet Dim Ella Set the worksheet dim LastRow as the long set alias_edes = sheets ("alloy_ads") Find the last line in the sheet with the temp = sheets ("floating") sheet ("aliases_adsms") LastRow = .change ("b "And" rash.account "). (XLEEP). With 'End End', the declaration of the price of the last line of 'Andri' is about the value of the last line, if the start of the 'Red' Straight 'conditional teetems, checkboxes 1. Value = True, then stores values ​​from the cell in column F in column F. LastRow Array1 (i) = Alias_Adds.Cells (i, "F") for I = 1 prints the next I 'Array1 content (" F ") = Array1 (m) with the next Alias_Adds Alias_Adds.Range (" A: with "A, F: F, G: G"). Remove 'Allies Edish Columns' ("E: F"). Set the column on 'E': F because after A has been removed in line, the columns go to the left end with the end if 'and checkbox 1.Value = true boolean If statement, check box 1. Insert a new column on the left side of column A in the Value = False "Alliance_ads sheet AIS_ads column". "A: A". Shift: Enter the Shift: XlToRight, CopyOrigin: for loop for 'xlFormatFromLeftOrAbove' In the newly inserted column print the verification work in an alias_ed.sege ("A, F: F, G: G") Internal color = RGB (192, 192, 192) surname column (" A "). Number format =" normal "column to set the format of the format to normal Print the function for the loop; LastRow for j = 1 if (j> 1) then the alias_directory. Seals (J, "A") = "= B" & amp; J & amp; "And C" & amp; J & amp; "& Amp; D" & amp; J Esse: Alias_Adus Seals (J, "A") = "Concertate Function" and if next column to 'Jpeg', to print the loop to store the cells in the cell in the column 'Last' for the K = 1, Alias_Adds .Kells (Kashmir, "F") = Temp.Cells (k, "F") for the next loop '' column g alias_ed.s To print the verification work in the columns ("G"). LastRow for L = 1 to print the loop function for the number format before calling normal for the "normal" "number format" column (L> 1) then alias_addsh seals (L, "g") = "= COUNTIF (A: A, A" & amp; & amp; amp; & amp; amp; & amp; l & amp;;) "Other: Elias_Adoo. Seals (L, "G") = "Duplicate Check?" End if the next L & end box '1' value = incorrect boolean statement and all

You can try to do something like this, the worksheet_stream event is triggered whenever the command button takes you to a fixed point: 

  Private sub worksheet_check (Targeted by Range) by CommandButton1 .Left = 216.75 End All

Comments

Post a Comment

Popular posts from this blog

import - Python ImportError: No module named wmi -

-
I followed the instructions for downloading WMI for Python When I try to run the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = wmi.WMI (): if Raw_input ("restart% s?"% S.Caption) .upper () == "Y": s.StartService () I got the error < Code> traceback (most recent call end): file ". \", Line 1, edit: I am using Python 2.7.6 EDIT2: I am running 64-bit Windows 2008 R2, and I've downloaded WMI-1.4.9.zip (md5). I removed the content and put it in D: Python \ Tools \ Scripts I executed dragon setup.py.install I said D : \ Python \ tools \ scripts to% PATH% and when I execute the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = Wmi.WMI (): If raw_input ("Restart% s?"% S. Caption). () == "Y": s.StartService () error me Gets traceback (most recent call final): File ". See \", line 1, &
Read more

Editing Python Class in Shell and SQLAlchemy -

-
I am working on the terminal on a shell script after this tutorial SQLAlchemy tutorial. I need to type gt; & Gt; & Gt; Sqlalchemy import column, integer, string & gt; & Gt; & Gt; Class user (base): __tablename__ = 'users' id = column (integer, primary_key = true) name = column (string) absolute name = column (string) password = column (string) def __repr __ (self): return "& lt ; User (name = '% s', absolute name = '% s', password = '% s') & gt; "% (Self.name, self.fullname, self.password) After the problem I have typed the password = column (string) I hit twice and changed .... >> I then took everything back but then an error was thrown because the class already exists ... I am not completely sure how to fix it. How do I open that slip in the shell script and edit it (Add DF to DRR) The error thrown below: / user / giripeters / TFSQLLX / Lib / python2.7 / site-packages / sqlalchemy / ext / decla
Read more

c# - MySQL Parameterized Select Query joining tables issue -

-
I am using parameterized select questions in conjunction with my program and it works entirely, When I try to join the table Everything I have done is a small fraction: using (MySqlCommand cmd = new MySqlCommand (paramQuery) ToSql (), Connection)) /etc/ paramQuery.ToSql () Equal: "Select TableOne ID, Tableon, Department, Tablet. One by name table, Table 2 h Yes TableOnEID = @Pharmak "* / for (Int Index = 0; Index and Lt; ParamariX Parameter (.c calculation; Index ++) Cmd.Parameters.AddWithValue (paramQuery.Parameters (). ElementAt (index). , ParamQuery.Parameters (). ElementAt (index) .Value); / * ParamQuery.Parameters (). ElementAt (index) .k = "@most 0" paramQuery.Parameters (). ElementAt (index) .Value = "tableTwo.ID" * / MySqlDataReader Reader = cmd.ExecuteReader (); While (reader.Read ()) {// do stuff} } One of the tables I attempt to join is For the table, two with the same id for all. Is there something that I'm doing wrong?
Read more