копиране на данни
12 отговора
0 прегледа
копиране на данни
Здр.
Може ли някой да ме светне ,щото много ми е тъмно
Създал съм в лист1 в клетка B1 падащ списък с датите за цялата година ,в клетка C1 също е с падащ списък с различните марки автомобили .
След това съм именовал 5 листа с имената на марките автомобили ,които се съдържат в списъка ... лист"МЕРЦЕДЕС",лист"БМВ",лист"Опел", лист"Ситроен" и лист"Форд".Във всеки от листите в клетка А2 надолу съм поставил датите до края на тази година
Сега как да го направя така,че примерно избирайки от падащият списък с датите 05.09.2008 ,а от падащият списък с автомобилите примерно Опел ,думата Опел да се копира в лист"Опел" срещу съответната дата. И така
Много благодаря
И не на последно да честитя на всички които създадоха този форум и най-вече на f(x)() ,който много помага
Честито и на всички съфорумци или новаци като мен
И на МНОГАЯ ЛЕТА



Може ли някой да ме светне ,щото много ми е тъмно
Създал съм в лист1 в клетка B1 падащ списък с датите за цялата година ,в клетка C1 също е с падащ списък с различните марки автомобили .
След това съм именовал 5 листа с имената на марките автомобили ,които се съдържат в списъка ... лист"МЕРЦЕДЕС",лист"БМВ",лист"Опел", лист"Ситроен" и лист"Форд".Във всеки от листите в клетка А2 надолу съм поставил датите до края на тази година
Сега как да го направя така,че примерно избирайки от падащият списък с датите 05.09.2008 ,а от падащият списък с автомобилите примерно Опел ,думата Опел да се копира в лист"Опел" срещу съответната дата. И така
Много благодаря
И не на последно да честитя на всички които създадоха този форум и най-вече на f(x)() ,който много помага
Честито и на всички съфорумци или новаци като мен
И на МНОГАЯ ЛЕТА
Re: копиране на данни
ти беше човека с макросчета :-) Не разбрах за какво можеда ти потрябва това но ето едно решение
Sub opel()
Dim StName As String
Dim i, j, k As Integer
StName = Sheet1.Cells(2, 3)
For i = 1 To 500
If Sheets(StName).Cells(i, 1) = Sheet1.Cells(2, 2) Then
Sheets(StName).Cells(i, 2) = StName
End If
Next i
End Sub
Предполагам че това е само част от някаква задачка. Ако имаш питанки питай смело
Sub opel()
Dim StName As String
Dim i, j, k As Integer
StName = Sheet1.Cells(2, 3)
For i = 1 To 500
If Sheets(StName).Cells(i, 1) = Sheet1.Cells(2, 2) Then
Sheets(StName).Cells(i, 2) = StName
End If
Next i
End Sub
Предполагам че това е само част от някаква задачка. Ако имаш питанки питай смело
Re: копиране на данни
Здр f(X) ()
Благодаря ти за макросчето , но нещо не се получава.
За това може ли да ти изпратя на мейл файлчето за да го видиш ?!
Благодаря ти за макросчето , но нещо не се получава.
За това може ли да ти изпратя на мейл файлчето за да го видиш ?!
Re: копиране на данни
Zdr F(x) ()
Ти ме извини !
Само ми кажи може ли да стане така както аз го исках щото на обобщената нищо не и разбирам .
Ти ме извини !
Само ми кажи може ли да стане така както аз го исках щото на обобщената нищо не и разбирам .
Re: копиране на данни
Ха! Имах аз подозрения, че intemaniq и novakut са един и същ човек...Явно съм бил прав. Само не ми е ясно защо трябва да се пише под два различни ника - някак си не е етично...
Geocaching в България
Geocaching в България
Re: копиране на данни
Двама братя сме ,който са се "запалили" по ексел .Само ,че единият започна по-късно . Това е
Захванали сме се той с един проеект и аз с друг проект .
Захванали сме се той с един проеект и аз с друг проект .
Редактирано от intermaniq на
Re: копиране на данни
Щом казваш...
единия иска помощ, изпраща файлове и т.н., а после другия се извинява и пита дали може да стане така, както той го иска... на мен ми изглежда просто като логване с грешния потребител, ама това е клуб електронни таблици, а не разследвания, може и да не съм прав
Geocaching в България
единия иска помощ, изпраща файлове и т.н., а после другия се извинява и пита дали може да стане така, както той го иска... на мен ми изглежда просто като логване с грешния потребител, ама това е клуб електронни таблици, а не разследвания, може и да не съм прав
Geocaching в България
Re: копиране на данни
Добре си го замислил но от там не ти трябва макрос а с Pivot Report вадиш си табличка и става много по лесно и по прегледно е :-) . Това е силата на ексела всичко в една таблица и после разни справки и анализи
Виж пивота които съм ти пратил
Виж пивота които съм ти пратил