ЗДР.
Може ли някой да ми каже как да стане :
Създал сyм форма а върху нея съм поставил TextBox. Kak вписаният текст в него след натискане на команден бутон да се отпечата в съответния лист, в съответната клетка ?
И как се инициализира TextBox ?
Благодаря на всеки .

TextBox не се инициализира. Това е прост контрол.

Предполагам, че става въпрос за Excel, щом споменаваш листове и клетки. Та също така предполагам, че си направил UserForm, и опитваш да напишеш VBA код. Ок, ако е така:

Private Sub CommandButton1_Click()

    Worksheets("Sheet1").Range("A1") = TextBox1.Text

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Благодаря ти Щирлиц
Стана !!!
Попълних няколко текстбокса,но незная ,как другия път когато извикам същата форма и като попълня текстбоксовете ,как информацията да се запише на следващият празен ред .
Текстбоксовете са егн,име,презиме,фамилия,датана записа.
Този ред от данни съм го запълнил ,но незная следващият запис да се запише на следващия свободен реед .
Благодаря 4е ми помагаш

М'че то друг не остана в тоя клуб. ;о)

Ок, нека ти демонстрирам една кратка техника, как да търсиш следващия празен ред, без много сложни алгоритми...

Private Sub CommandButton1_Click()



    'дефинира променлива за брояч

    Dim Row As Long

    

    'установява брояча на първия ред

    Row = 1

    

    Do Until Worksheets("Sheet1").Range("A" & Row) = ""

        'започва да увеличава брояча, докато реда,

        'който е достигнал е празен

        Row = Row + 1

    Loop

    

    'записва стойността в този празен ред

    Worksheets("Sheet1").Range("A" & Row) = TextBox1.Text

    

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Всичко стана перфектно :)
Извинявай хайде пак да питам за да се науча :)
в друг лист "данни1" в колона А съм записал различни думи .
Въпроса ми е как да извлека теи думи от съответната колона и да ги вкарам в комбокса.
Благодаря

Private Sub CommandButton1_Click()

    'Дефиниране на променлива за брояча

    Dim Row As Long

    'Установяване на брояча на първия ред от данните

    Row = 1

    'Изчистване на стари данни в комбо-бокса

    ComboBox1.Clear

    

    'Стартиране на цикъл, който се повтаря, докато има

    'данни в реда, на който е установен брояча

    Do While Worksheets("Sheet1").Range("A" & Row) <> ""

        'Прехвърляне на данните от таблицата в комбо-бокса

        ComboBox1.AddItem (Worksheets("Sheet1").Range("A" & Row))

        'Увеличаване на брояча с 1-ца

        Row = Row + 1

    Loop

    

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

Извинявай нещо не мога да се ориентирам в кода.
От клетка А1 до клетка А5 съм поставил 5 различни текста.
Целта ми е ,когато щракна върху комбобокса вътре в него да се визуализират данните от клетките А1:А5 и когато избера един от текстовете ,същия след като щракна команбутона да се отпечата в друга клетка на друг лист .
Благодаря ти отново :)

Ок, значи да се върнем малко назад в програмирането, и да се научим що са то "събития", и с какво се то ядат. ;о)

Събитието се случва, когато стане нещо с някой визуален контрол. Може и с невизуален, но до ООП (обектно ориентирано програмиране) няма да стигнем скоро... Та така, ние имаме във формата комбо-бокс, текст бокс, самата форма също е контрол... Може да имаме много контроли, и с всеки от тях да се случва нещо различно. Събитие е, когато кликнеш с мишката върху бутон. Именно това събитие ние обработвахме в предишните примери, които ти писах. Command1_Click(). Може да изберем и друго събитие Command1_MouseMove()... Т.е. дори когато минаваш с мишката върху някой контрол - се случват събития. Кода, който искаш да се изпълни - го слагай в правилното събитие, на което при настъпването му - ще се изпълни тази част от програмния код.

В предишните случаи на теб ти трябваше текстовете да се прехврърлят, когато натиснеш бутон. Но сега ти трябва още с отварянето на формата - в нея да има комбо-бокс, и в него пък - текстове. ;о) Ок, но тогава трябва още с отварянето на формата - да пълним комбо-бокса с тези тексове, за да се появят там... Събитието е UserForm_Initialize().

Private Sub UserForm_Initialize()

    'Дефиниране на променлива за брояча

    Dim Row As Long

    'Установяване на брояча на първия ред от данните

    Row = 1

    'Изчистване на стари данни в комбо-бокса

    ComboBox1.Clear

    

    'Стартиране на цикъл, който се повтаря, докато има

    'данни в реда, на който е установен брояча

    Do While Worksheets("Sheet1").Range("A" & Row) <> ""

        'Прехвърляне на данните от таблицата в комбо-бокса

        ComboBox1.AddItem (Worksheets("Sheet1").Range("A" & Row))

        'Увеличаване на брояча с 1-ца

        Row = Row + 1

    Loop

    

End Sub

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

ЕЕЕЕЕЕЕЕЕ велик сииииииииии
станаааааааа
сега ще се пробвам сам :
бутона ,който щраквам за да обработя текстбоксовете тоест информацията в тях да се запише на определено място ,към тях да вклуча и текста ,който е избран в комбобокса да се отпечата в оределена клетка.
предполагам ,4е на4ина е аналоги4ен . :)

СТАНААААААААААААААААА УРААААААААА !!!