Posts by R.Soeta

This is sir, so my hope is that when you double click the listbox, the checkbox is checked according to the contents of the listbox.

thank you

Previously, I apologize profusely to Mr. royUK as the group admin for my mistake in violating the rules in this group.

Continue to my similar problem with the post CheckBox Checked if Listbox column 5 text matches checkBox text? 1242524 # post1242524

that is, displays the value of the checkbox as true if one column (49) is found with the same text as the name of the checkbox.

For consideration, I attach a screenshot of the intended data.

Any help I will really appreciate.

Thank you

Quote from JonathanVH

Berikut adalah contoh metode pertama , yang semestinya paling mudah dipahami. Saya tidak tahu acara apa yang mengisi kembali kotak daftar Anda, tetapi kode ini harus untuk itu:

Code

Sub Pribadi SetCheckBoxes ()
Dim cb Sebagai MSForms.Control, lb Sebagai MSForms.ListBox, n As Long
  Setel lb = Me.ListBox1
  Untuk Setiap cb In Me.Controls
    Jika TypeName (cb) = "CheckBox" Kemudian
      cb.Value = Salah
      Untuk n = 0 Sampai lb.ListCount - 1
        Jika lb.List (n, 5) = cb. Keterangan Lalu
          cb.Value = Benar
          Keluar Untuk
        Berakhir jika
      Lanjut
    Berakhir jika
  Lanjut
Akhiri Sub

Display More

hi JonathanVH, hi Andyw111, from the above question, my case is almost the same as the Andyw111 question above, but somehow the code that is shared doesn't work when I try the macro script.

I don't know maybe because it's a different case.

please help, any help I will really appreciate.

for consideration I attach a screenshot of my work project

Quote from JonathanVH

tuan

Quote from StefanG

Re: Writing VBA code to link to another workbook

Hi keja1809,

How about

Code

Range("A1").Formula = "='C:\My Folder\[workbookname.xls]Sheet1'!R1C1"

HTH
Stefan

Cool!

What if I wanted to place a formula in the range of $A$1:$AN$6500 ?

Yes sir, there really is no problem when the workbook that is opened is only the file. but when I open another workbook the problem appears

Mr. Justin, help me again, I have a problem in the search box.

after I get the first search result, then when I type for the next search it generates an error: Subscript Out of Range with debugs:

Dim ws1 As Worksheet: Set ws1 = Sheets (Me.cmbNSheet.Value)

Okay Fix Mr. Justin, Thank you so much

Yes, thank you Mr. Justin all very helpful.

oh yes, the second code for the search engine looks better, but I have problems to display the date format how to make the format to "dd-mm-yyyy"?

Yes, Mr. Justin, again I say thank you very much.

Regards

Rian

Good job, Mr. Justin, thank you very much. the code works well.

thank you very much for the sacrifice of your time and thoughts.

to Mr. royUK also I thank you very much for your attention and understanding so far

always healthy everything

good sir Justin, I will try it right now, thank you for your help so far

okey sir, thank you

if you don't mind, please provide a solution for the search textbox and the 38 columns, sir

all the columns I actually use must be there.

Are there no other solutions, sir, except by reducing the columns?

sorry, sir, my royUK I just opened the code again from you after yesterday I tried switching sheets and produced an error.

and somehow I tried to transfer data but it produced Run-time error '13': Type Mismatch.

why is that error?

sir, honestly I am still learning in VBA Excel and I really want to deepen about VBA Excel, forgive me if I ask a lot of questions.

and if you don't mind asking for help with my problem in my last file, I have difficulty finding data with a range of 38 columns.

thank you for all the help of the Excel Masters so far for me

and the mistake is here

I have not tried the code you gave Mr. Justin.

If you wish, I will send a sample of my work

ok, sir, good deal.

I just want to behave normally that switching between sheets works well

Mr. Justin, I try to apply the search macro script that you created in my work that has 38 columns.

in the code ws1.Cells (ws1.Cells (1, 1). CurrentRegion.Rows.Count, 5), I try to replace the value 5 with 38 then

Me.TABELPENDUDUK.List (Me.TABELPENDUDUK.ListCount - 1, 4) = ws1.Cells (1, 5) and Me.TABELPENDUDUK.List (Me.TABELPENDUDUK.ListCount - 1, 4) = ws1.Cells (1, 5) and Me.TABELPENDUDUK. , 5) I add according to the column in the listbox that is 38.

from some of the threads of this forum and in other forums I get a little answer, that among the range in column 38 is because there are empty cells, and in my case above it is like that.

so for that, please take the solution

Mr. RoyUK, thank you for your attention.

but sir I have problems when switching sheets from the cmbNSheet_Change () combobox Application-defined or object-defined error

Debugs are set in rData = rData.Offset (1). Resize (rData.Rows.Count - 1, rData.Columns.Count)

why is that?