BG Development


Страници: (2) 1 [2]   ( Първото ново мнение ) Reply to this topicStart new topicStart Poll

> Ако някой може нека помогне, Помощ за VBA в Еxcel
CPPlus
Публикувано на: 02-02-2017, 10:02
Quote Post



Име: Людмил Григоров
Група: Потребител
Ранг: Почетен член

Мнения: 1098
Регистриран на: 22.06.11



Нямам си идея защо ти ги дава като грешки... аз съм на Excel 2016


--------------------
Нищо не е свършило, докато не е свършило! Не се предавай и ще постигнеш целта си!
PMEmail Poster
Top
Rocko74
Публикувано на: 02-02-2017, 11:22
Quote Post



Име: Росен Стоянов
Група: Потребител
Ранг: Новопостъпил

Мнения: 9
Регистриран на: 01.02.17



На Офис 10 съм явно затова не става
Все пак много ти благодаря за всичко
PMEmail Poster
Top
CPPlus
Публикувано на: 02-02-2017, 13:01
Quote Post



Име: Людмил Григоров
Група: Потребител
Ранг: Почетен член

Мнения: 1098
Регистриран на: 22.06.11



Има абонаменти за Office за 15-20 лева на месец. Може да ги погледнеш. Все пак не гарантирам, че е от версията.

Това мнение е било редактирано от CPPlus на 02-02-2017, 13:01


--------------------
Нищо не е свършило, докато не е свършило! Не се предавай и ще постигнеш целта си!
PMEmail Poster
Top
Rocko74
Публикувано на: 02-02-2017, 20:34
Quote Post



Име: Росен Стоянов
Група: Потребител
Ранг: Новопостъпил

Мнения: 9
Регистриран на: 01.02.17



Пробвах и в Ексел 2016
Същата работа всичко е в червено.
Не знам какво мажа...... icon_sad.gif
PMEmail Poster
Top
Антон Яначков
Публикувано на: 06-02-2017, 00:00
Quote Post



Име: Антон Яначков
Група: Потребител
Ранг: Старо куче

Мнения: 713
Регистриран на: 27.07.16



Това е проста задача и трябва да се напише просто. Ето така:
CODE

Sub Proba()
For j = 2 To 10000
   If Sheets("Sheet2").Cells(j, 1) = Sheets("Sheet1").Cells(2, 1) Then
       Sheets("Sheet2").Rows(j).Value = Sheets("Sheet1").Rows("2:2").Value
       Sheets("Sheet2").Activate
       Exit For
   End If
Next j
End Sub
PMEmail PosterUsers Website
Top
Rocko74
Публикувано на: 06-02-2017, 15:57
Quote Post



Име: Росен Стоянов
Група: Потребител
Ранг: Новопостъпил

Мнения: 9
Регистриран на: 01.02.17



Уникално, перфектно icon_smile.gif
Специални Благодарности на Антон Яначков, нямам думи.
Много благодаря и на CPPlus огромно внимание ми обърна човека
Благодаря искрено.
PMEmail Poster
Top
vba_dev_usa
Публикувано на: 03-05-2017, 16:32
Quote Post



Име:
Група: Потребител
Ранг: Новопостъпил

Мнения: 6
Регистриран на: 28.04.17



@ЛюдмилГригоров -- Евала за naming conventions, indentations, proper variables, елегантно написан код... Такава рядкост и такова удоволствие!

Това мнение е било редактирано от vba_dev_usa на 03-05-2017, 16:35
PMEmail Poster
Top
1 потребители преглеждат тази тема в момента (1 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:

Topic Options Страници: (2) 1 [2]  Reply to this topicStart new topicStart Poll

 


Copyright © 2003-2018 | BG Development | All Rights Reserved
RSS 2.0