Sub ReplOne()
Dim lr As Long

lr = Cells(Rows.Count, "B").End(xlUp).Row

Range("I3:I" & lr).Replace what:=".", replacement:=","

End Sub

Sub Poisk()
Dim lamp As Range, Table As Range
With [a:a]
    Set lamp = .Find("Lamp", , xlValues, xlWhole)
    If lamp Is Nothing Then Exit Sub
    Set lamp = .FindNext(lamp)
    lamp.Offset(0, 1).Copy [c2]
        
    Set Table = .Find("Table", , xlValues, xlWhole)
    If Table Is Nothing Then Exit Sub
    Set Table = .FindNext(Table)
    Table.Offset(0, 1).Copy [c3]
    End With
End Sub

Sub copirovat_cells()
Dim lr As Long

lr = Cells(Rows.Count, 1).End(xlUp).Row
lr2 = Cells(Rows.Count, 11).End(xlUp).Row + 1

    For i = 1 To lr
            If Cells(i, 1) = Cells(1, 7) And Cells(i, 2) = "да" Then
                    'cells(lr2,"K")=cells(i,1)
                Cells(i, 1).Copy Cells(lr2, "K")
                    Cells(i, 2).Copy Cells(lr2, "L")
                Cells(i, 3).Copy Cells(lr2, "M")
        Cells(i, 5).Copy Cells(lr2, "N")

            End If
        Next
End Sub

Sub vvod()
Dim lisa As Worksheet, lisb As Worksheet
Dim lr As Long
Dim lr2 As Long
Dim rng As Variant

Set lisa = ActiveSheet
Set lisb = Worksheets("Base")

lr = lisb.Cells(lisb.Rows.Count, 2).End(xlUp).Row + 1
lr2 = lisb.Cells(lisb.Rows.Count, 2).End(xlUp).Row + 2

lisb.Cells(lr, "B").Value = lisa.Range("b5").Value
lisb.Cells(lr, "C").Value = lisa.Range("C5").Value
lisb.Cells(lr, "D").Value = lisa.Range("D5").Value

        rng = ("E6:F15")
        If rng <> 0 Then
        Range("E6:F15").Copy
        Sheets("Base").Select
        Range("E" & lr2).PasteSpecial xlPasteAll
        Else
        lisb.Cells(lr, "F") = ""
        End If
        Application.CutCopyMode = xlCut
        lisa.Select
        Range("B5:F15").ClearContents
        Range("B5").Select
        
End Sub

Sub qwe()
Range("D:D").Clear
Dim Lr As Long
With Sheets("bib")

Lr = Cells(Rows.Count, "D").End(xlUp).Row

Range("D1").FormulaLocal = "= (a1 & "" "" &  b1)"
Range("D2").FormulaLocal = "= (a1 & "" "" &  b2)"
Range("D3").FormulaLocal = "= (a2 & "" "" &  b1)"
Range("D4").FormulaLocal = "= (a2 & "" "" &  b2)"
Range("D5").FormulaLocal = "= (a2 & "" "" &  b3)"
Range("D1:D10").Value = Range("D1:D10").Value
Range("D1" & Lr) = "OK"
End With
End Sub

Sub Ud_l()
Sheets("3202").Select 'имя листов "3203", "3204", "3205"
Range("A:D").Delete
End Sub

Sub VPR_FILE()
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
.Calculation = xlCalculationAutomatic
ChDir "D:\Party"
Workbooks.Open Filename:="D:\Party\03209.xls"
   Range("d13:d50000").ClearContents
    Range("D13").FormulaArray = "=SUMIFS(([SVOD.xls]Rez!R2C3:R64773C3),([SVOD.xls]Rez!R2C1:R64773C1),R1C2,([SVOD.xls]Rez!R2C2:R64773C2),RC[-2])"
    Range("D13").Copy
    Range("D14:D50000").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
   Range("D13:D50000") = Range("D13:D50000").Value
    Range("H13:h50000").ClearContents
    Range("H13").FormulaArray = "=SUMIFS(([SVOD.xls]MRez!R2C3:R64773C3),([SVOD.xls]MRez!R2C1:R64773C1),R1C2,([SVOD.xls]MRez!R2C2:R64773C2),RC[-6])"
    Range("H13").Copy
    Range("H14:H50000").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("H13:H50000") = Range("H13:H50000").Value
   Range("F2:f80").ClearContents
    Range("F2").FormulaArray = "=(SUMIF(R13C3:R50000C3,RC[-1],R13C4:R50000C4))"
    Range("F2").Copy
    Range("F3:F80").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("F2:F80") = Range("F2:F80").Value
    Range("G2:g80").ClearContents
    Range("G2").FormulaArray = "=SUMIF(R13C3:R50000C3,RC[-2],R13C8:R50000C8)"
    Range("G2").Copy
    Range("G3:G80").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
    .CutCopyMode = False
    Range("G2:G80") = Range("G2:G80").Value
 ActiveWorkbook.Save
ActiveWindow.Close
Call Marh
Call Shahr
Call Shahr_w
Call Paxta
Call Hoja
    .ScreenUpdating = True
  .ShowWindowsInTaskbar = True
    End With
    Windows("Soato.xls").Activate
End Sub

Sub vstavka()
Application.ScreenUpdating = False
lstr = Cells(Rows.Count, 1).End(xlUp).Row
Range("b1:ax" & lstr).Cells.Clear
Range("a1:a" & lstr).Copy
Range("c1:g" & lstr).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = xlCut
Range("a1").Select
Application.ScreenUpdating = True
End Sub