Soru "C:acılısarsiv.txt" dosyasına açılış kaydındaki bilgiyi yanlış kaydetme?

[mars2]

İyi akşamlar;
Aşağıdak kodla excel çalışma kitabını açarken kullanıcı adını ve saatini msgbox olarak vermektedir.
Açılış kaydını "C:acılısarsiv.txt" dosyasına kayıt etmektedir.
"C:acılısarsiv.txt" dosyasına, renk sayfasının A3 ve A4 hücrelerindeki veriyi kayıt etmaesi gerekirken Liste sayfasında B sutunudaki verileri kayıt etmektedir.

Hata nerededir. Nasıl düzeltilmesi gerekmektedir.

Option Explicit

Private Sub Workbook_Open()

Dim Counter As Long, LastOpen As String, Msg As String
LastOpen = GetSetting("xxrt", "Dosya", "Opened", "")

Sheets("renk").Range("A3") = "En son açılış tarihi: " & LastOpen
Sheets("renk").Range("A4") = "Dosyayı en son açan kullanıcı: " & Application.UserName


MsgBox "Merhaba " & Application.UserName & ", " & Chr(13) & Chr(13) & _
"Programına Hoşgeldiniz!" & Chr(13) & Chr(13) & _
"En son açılış tarihi: " & LastOpen & Chr(13) & Chr(13) & _
" Giriş Kaydınız Alınmıştır..", vbApplicationModal, " MKIk"

LastOpen = Date & " " & Time
SaveSetting "xxrt", "Dosya", "Opened", LastOpen

Dim LastRowA As Integer
Dim veri1 As String
Dim veri2 As String
Dim i As Integer

Open "C:acılısarsiv.txt" For Output As #1
LastRowA = Cells(65536, 1).End(xlUp).Row

For i = 1 To LastRowA
veri1 = Cells(i, 1).text
veri2 = Cells(i, 2).text
Print #1, veri1; " "; veri2;
Next i
Close #1 'C Klasöründe txt hazırladı
'enson açan kişinin yazılı bulunduğuSayfa1 a1 ve a2 deki verileri siler..
'eğer Sayfa1'de silmesini istemezseniz aşağıdakileri silin.

Sheets("renk").Select
Sheets("renk").Range("A3:A4").Select
Selection.ClearContents
Sheets("renk").Select

userform2.Show 0
Sheets("Liste").Select
End If

 

[necati]

Merhaba,
Excel kitabını kapatırken "Liste" sayfasında kalıyor. Açılışta da "Liste" sayfası karşımıza geliyor ve oradan okuyor.
Kodlarınızın başına Sheets("renk").Select komutunu yazarsanız, açılışta "renk" sayfasında işlem yapar.

 

[mars2]

Teşekkürler

 

[necati]

Rica ederim, kolay gelsin.