Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Перевести txt в excel
 
barbatun  a mozhete rasskazat', shto Vy sdelali? ja reshila poparitsja i ubrat' sdvigi vruchnuju, tak kak drugovo varianta net
Изменено: Giulia_ - 12.12.2017 00:31:09
Перевести txt в excel
 
Цитата
barbatun написал:
Ну, как говорится, на нет и суда нет    
No spasibo, shto staralis!
Перевести txt в excel
 
net, barbatun! poslednie stroki sdvig idjot - i nomer schjota ne tam i summa napravo poshla.
Перевести txt в excel
 
Друзья! Помогите разобраться - никак не могу перевести txt в excel. И копировать пробовала и тогда text to column, и через Data=>From Text обоими способами, но никак
Изменено: Giulia_ - 30.11.2017 16:53:07
Копирование одной строки в две макросом
 
извините!!!
Копирование одной строки в две макросом
 
Код
Sub starts()
    LastRow = Worksheets.("kopsavilkums".UsedRange.Row - 1 + Worksheets("kopsavilkums".UsedRange.Rows.Count
    Application.ScreenUpdating = False
    For r = LastRow To 2 Step -1
     Rows(r).delete
    Next r
    
    Dim a(), i&, ii&
    
    a = Sheets("Dati".[a1].CurrentRegion.Value
    ReDim b(1 To (UBound(a) - 1) * 2, 1 To 11)
    
    For i = 2 To UBound(a)
     ii = ii + 1
     b(ii, 1) = a(i, 1)
     b(ii, 2) = a(i, 5)
     b(ii, 3) = a(i, 6)
     b(ii, 4) = -a(i, 7)
     b(ii, 5) = a(i, 11)
     b(ii, 6) = a(i, 14)
     b(ii, 7) = a(i, 13)
     b(ii,  = a(i, 9)
     ii = ii + 1
     b(ii, 1) = a(i, 1)
     b(ii, 2) = a(i, 6)
     b(ii, 3) = a(i, 5)
     b(ii, 4) = a(i, 7)
     b(ii, 5) = a(i, 11)
     b(ii, 6) = a(i, 14)
     b(ii, 7) = a(i, 13)
     b(ii,  = a(i, 9)
    Next
    
    Sheets("kopsavilkums".Cells(Rows.Count, "A".End(xlUp)(2).Resize(ii,  = b
End Sub
hotela dobavit' komandu, shto by vsja informacija sterlas' by iz lista "kopsavilkums" i togda tuda pereneslasby vot eta informacija makrosom. No shto-to u menja ne raboaet. Podskazhite pozhalujsta, shto ne tak?
Копирование одной строки в две макросом
 
vsjo sdelala!!! juhuu!!! spasibo ogromnoe...
Копирование одной строки в две макросом
 
Код
Sub copy()
    Dim a(), i&, ii&
    With Sheets(1).[a1].CurrentRegion
     a = .Rows(.Rows.Count).Value
    End With
    ReDim b(1 To 2, 1 To 10)
    For i = 2 To UBound(a)
     ii = ii + 1
     b(ii, 1) = a(i, 1)
     b(ii, 2) = a(i, 3)
     b(ii, 3) = a(i, 5)
     b(ii, 4) = a(i, 7)
     b(ii, 5) = -a(i, 9)
     b(ii, 6) = a(i, 
     b(ii, 7) = a(i, 10)
     b(ii,  = a(i, 11)
     b(ii, 9) = a(i, 12)
     b(ii, 10) = a(i, 13)
     ii = ii + 1
     b(ii, 1) = a(i, 1)
     b(ii, 2) = a(i, 3)
     b(ii, 3) = a(i, 5)
     b(ii, 4) = a(i, 
     b(ii, 5) = a(i, 9)
     b(ii, 6) = a(i, 7)
     b(ii, 7) = a(i, 10)
     b(ii,  = a(i, 11)
     b(ii, 9) = a(i, 12)
     b(ii, 10) = a(i, 13)
    Next
    Sheets(2).Cells(Rows.Count, "A".End(xlUp)(2).Resize(ii, 10) = b
End Sub
Ja vot razshirila, no pochemuta vybrasyvaet debug 1004 na predposlednjuju stroku.
Копирование одной строки в две макросом
 
всё классно! но вот проблема - когда добавляю новые строки, то копируются все старые, то есть, происходит дубляж
Копирование одной строки в две макросом
 
Здравствуйте!
Очень (как и всем) нужна помощь. Есть складской приход-раход, который записывается в одну строку. Просто скопировать строку на другой лист макросом я уже понила как, но тут задача чтобы одна строка скопировалась бы дважды и по разному. Пример прикпеплён. С листе Анализ показала результат своей идеи.
P.S. Фирма с маленьким оборотом, но дорогим продуктом - пока что не доросли до складской программы, поэтому прошу Вашей помощи.
Перенос строки с указанием листа и со статусом "Исполнено" на другие листы
 
Помогите!
Я уже совсем запуталась. сделала макрос для вставки новых елементов в выпадаюсщий список - и всё замечательно работало. Потом добавила макрос - копирование строки из одного листа в другой при выполнении условия. всё работало. сегодня добавила макрос для автоматического добавления даты при заполнении новой строки. проверила - работает. сохранила. сходила покурить за хорошую работу - и всё. теперь работает только copy_may макрос. старалась переписать всё за ново - но, наверно, сделала только хуже.
готова идти на курсы ВБА лишь бы всё самой сделать и не просить по каждой мелочи помощи, но к моемы огромному сожалению, в Риге нету таких курсов. прийдёться заказывать книги из России и учиться самой.
Zakraska jacheiki pri vypolnenii formuly v etoj zhe jacheike
 
вообщем сделала я по условному форматированию - всё работает. единственная порблема, што пока не появляется первая цена, ячейка форматируется как для 3.цены. но это не страшно - обясню парням, которые этот файл будут использовать и будет чики-пики! спасибо за помощь
Zakraska jacheiki pri vypolnenii formuly v etoj zhe jacheike
 
нет, не закрыт!  :)  но так не заметны мои ошибки граматики русского языка!
seregeyss - так я умею. Но мне надо что бы закрашивалась А колонна, потому что изменение цены будет отображатся именно в этой колонне при исполнении формулы
Zakraska jacheiki pri vypolnenii formuly v etoj zhe jacheike
 
Zdarstvuyte!
Situacija - est' iznachal'naja cena. No posle 3 mesjacev ona menjaetca. A eschjo posle 3 opjat'. Kak sdelat' shto by pri pervom izmenenii, jachejka s iznachalnoj cenoj, zakrashivalas' by v odin cvet, pri vtorom - v drugoj.
Перенос строки с указанием листа и со статусом "Исполнено" на другие листы
 
Anton!
OGROMNOE Vam spasibo!!!!
Bez Vas eschjo dnej 10 muchilas' by!!!!!!!
Перенос строки с указанием листа и со статусом "Исполнено" на другие листы
 
Zdravstvuyte! Ja uzhe ves' den' kopajus' s etim makrosom. Starajus' slozhit' iz neskol'kih, no shto-to moja golova ne rabotaet. Ne mogli by Vy mne pomoch'? Mne nado perenesti vsju stroku iz lista AM_masinas na list AM_pardotas, pri uslovii shto v 11 kolone budet kriterij "Pardota". V AM_Masinas u menja formuly, mozhet po etomu ne rabotaet?
Ja iz Rigi, tak shto izvinjajus' za russkij! :)
Страницы: 1
Наверх