Private Sub CommandButton1_Click()
Range("B1").Select
Selection.Copy
Sheets("Sheet2").Select
----> Range("B1").Select '1004 - къв му е проблема?
ActiveSheet.Paste
End Sub

п.с Новак съм на един ден ;) моля да ми обесните ако може не само да ми дадете правилното решение

п.с.' дайте ми акъл как да свържа (укажа) примерно , че а1= илиян б1=барабан c1=насран --- в d1 да получа : илиян барабан насран ?

Редактирано от Lenor на 27.04.05 20:34.

Sub nestosi()

Range("D1") = Range("A1") & Range("B1") & Range("C1")

End Sub
това трябва да ти свърши работа по втория въпрос, ако искаш това да става автоматично трябва да го пригодиш чрез проверка на смяна на стойността на А1,В1 и С1
------
Sub Button1_Click()

Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

End Sub
това върви без проблем

сетих се, че каза че си начинаещ и можеш да не разбераш за какво ти говоря за автоматичната промяна.( и аз до преди 2 месеца нищо не вдявах, но с разцъкване на VB горе долу вече се справям) та пробвай това и се помъчи да го анализираш сам

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Address = "$A$1") Or (Target.Address = "$B$1") Or (Target.Address = "$C$1") Then Range("D1") = Range("A1") & Range("B1") & Range("C1")

End Sub

Здравей

---------------------
Sub Button1_Click()

Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste

End Sub
това върви без проблем
--------------------------------
Значи то върши ама на мен не ми върши работа първо така направих ама не е това което искам
това пaства във Sheet2 но в активната клетка или поле ;) на мен ми трябва в точна и конкретна клетка ;)

Sub Button1_Click()

Dim r1 As Range
Dim r2 As Range

Set r1 = Worksheets("Sheet1").Range("A1")
Set r2 = Worksheets("Sheet2").Range("A1")

Sheets("Sheet1").Select
r1.Select
Selection.Copy
Sheets("Sheet2").Select
r2.Select
ActiveSheet.Paste

End Sub


Пробвай това би трябвало да ти свърши работа.

Хубаво е предварително да декларираш области и т.н.

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

здрвей
много ти благодаря от два дена съм се разтреперил с тази глупост
много ми помогна пак мерси

п.с. Знам че ставам малко нагал ама се опитвам да направя нещо като складова програма с допълнителни възможности ... интересува ме ако имаш опит в нещо подобно как точно да организирам нещата - значи трябва да се изкарват стокови разписки на клиенти .
Конкретния въпрос ми е как се прави за всяка стокова разписка един фаил ли да създавам или в една таблица да пъхам всичко - по кой от двата начина ? или по нито един ;)

Здравей колега,
Предлагам ти да започнеш с молко по-лек проект за начало. Ако искаш да се занимаваш по-сериозно по-добре се ориентирай към чист VB. Аз лично смятам, че Excell не е най-подходящия за тази цел. (може Щирлиц да е на друго мнение)

всичко си зависи от обема на данните. Ако става дума за кварталната бакалия що да не може с Ексел.
Друг е въпросът, че складовата програма си иска база данни. Което вече ни отвежда до Аксес

Шум в офиса? Слушайте Paul van Dyk

То невъзможни неща няма. Но става дума, че една такава програма си иска индекси, връзки между базите и прочие. Аксеса определено е по-подходящ, но доколкото знам, не може да го компилираш до изпълним файл, което прави проекта малко мобилен.

Нямам никаква идея защо мислиш, че ще съм на друго мнение. ;о)

Сигурно си забелязал, че не съм от този тип потребители в клуба, които се опитват единствено да опонират другите. ... Мненията тук би трябвало да се базират на твърда информация (та дори от разузнаването да е), факти, статистически данни... Относно писането на софтуер - няма "правилен начин" да се напише една програма. Може 10 различни програмисти да напишат програмата по 10 различни начина, и тя пак да върши същото. Друг е въпроса кой от начините ще заеме най-малко ресурси от машината на която ще работи, кой ще бъде най-бърз като изпълнение на програмата, кой ще е най-лесен за бъдещи ъпгрейди, кой ще е най-удобен за програмиста при откриване на грешките .... ооо даааа, грешки ще има, и още как ;о) ... кой от начините ще е съобразен с някакъв стандарт, така че да могат да пишат повече програмисти едновременно по проекта... Условия - безкрай. ... А за да ни е по-лесен живота - съществуват тези клубове.

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