перенос данных из Excel в DAT при снятии активации с яейки

[Nicolas_46]

Доброго времени суток товарищи макросоведы. пытаюсь разобраться вот с таким вопросом.
Активирую ячейку B12, далее меняю значение с 633,0 на 551,0
далее при нажатии Inter хочу сделать так, чтобы в файле DAT заменялись значения в 22 строке с 38 символа последующие 5.

пытался сделать вот таким способом:

Range("B12").Select
MyFile = "C:\варианты_исследования\IDSAPRK.D AT"
Open MyFile For Output As #1
For Each i In Selection
Print #1, i
Next
Close #1

значение вставляется, но в первую строчку

теперь сам вопрос:
1) как сделать чтобы макрос работал при нажатии inter (при снятии активации с ячейки)
2)как сделать чтобы значение менялось в определенном месте файла DAT
3)как сделать чтобы запятая при вставке менялась на точку

VBA начал осваивать недавно, кое что знаю но многого нет(

Помогите пожалуйста, заранее примного благодарен.

[doober]

Вы не ошиблись с ячейкой B12,возможно Е12

Код вставите в модуль листа с именем Лист1

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$E$12" And Target.Value <> "" Then
                UdateDat Replace(Target.Text, ",", ".")
        End If
End Sub

Private Sub UdateDat(s)
        Dim Path As String, X, strLine As String
        Path = "C:\Documents and Settings\Сергей\Рабочий стол\оп\IDSAPRK.dat" 'Поменяете на свой путь к файлу
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        Set oText = oFSO.OpenTextFile(Path, 1)
        strLine = oText.Readall
        oText.Close
        X = Split(strLine, vbCrLf, -1)
        Mid(X(22), 35, 11) = Space(4) & s & Space(7 - Len(s))
        strLine = Join(X, vbCrLf)
        Set TextSave = oFSO.OpenTextFile(Path, 2)
        TextSave.Write strLine
        TextSave.Close
        Set oFSO = Nothing: Set TextSave = Nothing: Set oText = Nothing
End Sub

[Nicolas_46]

благодарю!!!!!) работает как часы.
возник такой вопрос чтобы организовать тоже самое для других ячеек
нужно поменять значение в этой строчке

If Target.Address = "$E$12" And Target.Value <> "" Then

и вот тут:

Mid(X(22), 35, 11) = Space(4) & s & Space(7 - Len(s))

во второй строчке какие цифры за что отвечают?

оставлять макрос в этом же модуле?

[Казанский]

где-то я уже это видел
http://www.cyberforum.ru/vba/thread651118.html

[Nicolas_46]

пытаюсь разобраться) одна голова хорошо а две лучше)
Казанский, знаете ответ на вопрос в предыдущем посте?

[Nicolas_46]

подскажи пожалуйста.

[Nicolas_46]

какие цифры за что отвечают я разобрался)
как сделать чтобы несколько ячеек работали
одновременно c несколькими макросами ?
(макросы настроены на замену разных значений)

[doober]

Адреса и конкретные числа проставите под себя

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value <> "" Then
Select Case Target.Address
Case "$E$12"
 UdateDat Replace(Target.Text, ",", "."), 22, 35, 11

Case "$C$10"
UdateDat Replace(Target.Text, ",", "."), ??, ??, ??

Case "$F$22"
UdateDat Replace(Target.Text, ",", "."), ??, ??, ??

End Select

End If

End Sub

Private Sub UdateDat(s, St As Integer, Poz As Integer, Dlinna As Integer)
        Dim Path As String, X, strLine As String
        Path = "C:\Documents and Settings\Сергей\Рабочий стол\оп\IDSAPRK.dat" 'Поменяете на свой путь к файлу
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        Set oText = oFSO.OpenTextFile(Path, 1)
        strLine = oText.Readall
        oText.Close
        X = Split(strLine, vbCrLf, -1)
        Mid(X(St), Poz, Dlinna) = Space(4) & s & Space(Dlinna - 4 - Len(s))
        strLine = Join(X, vbCrLf)
        Set TextSave = oFSO.OpenTextFile(Path, 2)
        TextSave.Write strLine
        TextSave.Close
        Set oFSO = Nothing: Set TextSave = Nothing: Set oText = Nothing
End Sub

[Nicolas_46]

Появился вопрос по старой теме. Ситуация такая;
Я програмно копирую значение из ячейки(с другого листа) в ячейку где настроена связь с текстовым файлом, значение в ячейке меняется, а в текстовом файле нет, но если в ручную активировать и снять активацию то значение изменится и в текстовике.
Почему так происходит?