textbox verisi makronun arasına girsin

[GursoyC]

Merhaba,
bir makrom ile bir sayfadaki verileri kopyalayıp başka bir sayfaya yazdırmaya çalışıyorum. Yazma şeklim muhtemelen yanlış ama doğrusunu bulamadım. Kodlarım aşağıda. Textbox'larla ilgili kısımda düzeltmem gereken yer neresi yardımcı olur musunuz.
Not: Diğer kodlar gayet güzel çalışıyor. Sadece textbox'larda olan verileri kopyalamadan (yani hücrelere yazdırmadan) atlıyor.

Sheets("siteden_kayıt").Select
    Range("o16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("müşteri_listesi").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    ActiveCell.Offset(0, 3).Range("A1") = TextBox1.Text
    ActiveCell.Offset(0, 1).Range("A1") = TextBox2.Text
    ActiveCell.Offset(0, 1).Range("A1") = TextBox3.Text

    
    Sheets("siteden_kayıt").Select
    Range("G18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("müşteri_listesi").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[askm]

ActiveCell.Offset(0, 3).Range("A1") yerine direkt cells olarak girin. Hata burda sanırım.

 

[GursoyC]

ActiveCell.Offset(0, 3).Range("A1") yerine direkt cells olarak girin. Hata burda sanırım.

askm hocam, bu 3 değer aktif olan hücrenin sırasıyla 3 sağına, 1 sağına ve 1 sağına yazmalı çünkü devamındaki kodlar da aynı mantıkla çalışıyor.

Hayır asıl anlamadığım şey şu, başka bir userform'umda ki bir textbox değerini aynı şekilde

ActiveCell.Offset(0, 1).Range("A1") = CCur(TextBox1)

şeklinde yazdırdım hiçbir sorun yok. Hatta buna uyarlamaya çalıştım. Ama bir türlü çalıştıramadım. İşin garibi hiçbir hata almıyorum.
kod çalışıyor duruyor, sayfaya bakıyorum b 3 değeri yok sayarak çalışmış.

 

[askm]

F8 ile çalıştırıp deneyin. Olmadı örnek dosya ekleyin bakalım.

 

[GursoyC]

üstadım ekteki dosya örnek dosyadır.

Düzelt formunun kaydet'inde yapması gereken textbox 1 ve textbox 2'de yazılan değerleri A ile B arasına yazması.
ama bana mısın demiyor

 

[Orion1]

Böyle deneyin.

ActiveCell.Offset(0, 3).value = TextBox1.Text
ActiveCell.Offset(0, 2).value = TextBox2.Text
ActiveCell.Offset(0, 1).value = TextBox3.Text

 

[GursoyC]

Evren bey sanırım oldu, sanırım diyorum çünkü telefonumla uzaktan bilgisayarıma bağlanıp yaptım. Ekranı tam görecekken bağlantım koptu ama bir şeyler gördüm sanki

Eve gider gitmez deneyeceğim.
Teşekkürler.

 

[Orion1]

Evren bey sanırım oldu, sanırım diyorum çünkü telefonumla uzaktan bilgisayarıma bağlanıp yaptım. Ekranı tam görecekken bağlantım koptu ama bir şeyler gördüm sanki

Eve gider gitmez deneyeceğim.
Teşekkürler.

Rica ederim.
İyi çalışmalar.

 

[GursoyC]

Evren bey, mükemmel çalışıyor. Çok teşekkür ederim.
Sayın askm, sizin de ilginize teşekkür ederim.

Saygılar,

 

[Orion1]

Evren bey, mükemmel çalışıyor. Çok teşekkür ederim.
Sayın askm, sizin de ilginize teşekkür ederim.

Saygılar,

Rica ederim.
İyi çalışmalar.