Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Замена значения ячейки значением другой ячейки находящейся в той же строки при условии, Если Значение Ячейки 13-го столбца не равно "" заменить Значение ячейки 1-го столбца той же строки.
 
Код
Sub for1()
    Range("M20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-12],10,3)=""Íàç"",MID(RC[-12],168,17),"""")"
    Range("M20").Select
    Selection.Copy
    Columns("M:M").Select
    ActiveSheet.Paste
    
    Range("O20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]="""","""",LOOKUP(99^99,--LEFT(MID(RC[-2],MIN(FIND({0,1,2,3,4,5,6,7,8,9},RC[-2]&""0123456789"")),15),{1,2,3,4,5,6,7,8,9,10,11,12,13,14,15})))"
    Range("O20").Select
    Selection.Copy
    Columns("O:O").Select
    ActiveSheet.Paste
    
    Range("Q20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]*7.5%/130)"
    Range("Q20").Select
    Selection.Copy
    Columns("Q:Q").Select
    ActiveSheet.Paste
    
    Range("S20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-18],10,3)=""Íàç"",LEFT(RC[-18],508),"""")"
    Range("S20").Select
    Selection.Copy
    Columns("S:S").Select
    ActiveSheet.Paste
    


    Range("X20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-7]="""","""",INT(RC[-7]))"
    Range("X20").Select
    Selection.Copy
    Columns("X:X").Select
    ActiveSheet.Paste

    Range("Z20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""","" ðóá. "")"
    Range("Z20").Select
    Selection.Copy
    Columns("Z:Z").Select
    ActiveSheet.Paste
    
    Range("AB20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-11]="""","""",ROUND((RC[-11]-RC[-4])*100,))"
    Range("AB20").Select
    Selection.Copy
    Columns("AB:AB").Select
    ActiveSheet.Paste
    
    
    Range("AD20").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(MID(RC[-29],10,3)=""Íàç"",RIGHT(RC[-29],1145),"""")"
    Range("AD20").Select
    Selection.Copy
    Columns("AD:AD").Select
    ActiveSheet.Paste
    
    Range("AF20").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",CONCATENATE(RC[-13],RC[-8],RC[-6],RC[-4],RC[-2]))"
    Range("AF20").Select
    Selection.Copy
    Columns("AF:AF").Select
    ActiveSheet.Paste
    Columns("AF:AF").Select
    
    Columns("AF:AF").Select
    Columns("AF:AF").Copy
    Columns("AH:AH").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Columns("M:AG").Select
    Range("AG1").Activate
    Selection.Delete Shift:=xlToLeft
    
    Columns("M:M").Select
    With Selection
        .HorizontalAlignment = xlFill
        .VerticalAlignment = xlDistributed
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    

    
End Sub
Приветствую всех.
Есть такое:



Необходимо:
При условии что в столбце 13 есть значение, заменить значение первой ячейки той же строки на значение столбца 13, этой же строки.
Подскажите, пожалуйста как возможно это сделать.
Заранее Спасибо.
Изменено: GroshevDV - 17 Апр 2018 00:08:53
 
Код оформите тэгом и спрячьте под спойлер, иначе беда)
Формула
Код
=ЕСЛИ(M1>0;M1;"")
Изменено: Anchoret - 16 Апр 2018 09:19:51
 
Макрос
Скрытый текст
"Все гениальное просто, а все простое гениально!!!"
 
GroshevDV, код следует оформлять соответствующим тегом: ищите такую кнопку и исправьте своё сообщение.
Тег VBA.jpg (19.2 КБ)
 
Nordheim, Приветствую.
Спасибо. Чувствую, что истина где-то рядом, но тямы не хватает осмыслить.
Не работает. Вообще ни чего не происходит.
Что только не делал и в свой текст вставлял... и пытался инструкции по языку почитать... (ещё хуже стало) Ни чего не понимаю.
Не работает.
Что я не понимаю? Почему не работает? ... даже не знаю как спросить-то... Мажет другие какие варианты?
 
GroshevDV, Вы запускаете макрос и ничего не происходит?
 
Юрий М,Да.
Ничегошеньки.
 
Я только что вставил в Ваш файл макрос из #3, запустил его - всё работает.
 
Юрий М,можете мне свой файл выслать?
 
Не высылайте.
Всё сработало на файле из трёх документов.
На полном файле не работает.
 
Вашу почту удалил - ознакомьтесь с правилами. Так ведь файл не мой - Ваш ))
 
Вставил в файл все документы. (не знаю... думал может что-то скрыто... или ещё что-то может влиять чего не знаю)
Нажал на макрос - ошибка -
Код
        lrow = .Cells(.Rows.Count, 13).End(xlUp).Row
Тайм эррор 6
 
Юрий М,спасибо.
Учту.
 
Вот Ваш файл с макросом Test
 
Nordheim, Спасибо.
Получилось.
Удалил все строки после таблицы и запустил макрос. Тогда сработало.
Огромное Спасибо.
Страницы: 1
Читают тему (гостей: 1)
Наверх