UserForm dan aktarırken aynısı varsa üstüne yazsın.

[atillaciftci]

UserForm1 de CommandButton1 butonuna basınca textboxlardakini excel dosyasına aktarıyor sorum şu TextBox23 de ki yazan aktardığı sayfanın D sütununda varsa tekrar altına açmak yerine üstüne yazsın yoksa altına yazsın aşağıda verdiğim kod hep alta atıyor.
Bu kodu bu şekilde nasıl düzeltebilirim..



Private Sub CommandButton1_Click()

On Error GoTo hata

Workbooks.Open ("\\Bsserver\Repair\ISLETME\Taşeron\Taşeron Performans\Taşerona Göre\2012\Atilla Deneme\" & TextBox23 & ".xls")

hata: MsgBox " ...::.. " & TextBox23.Value & " .xls İsminde bir dosya oluşturun ..::..", _
vbInformation + vbMsgBoxRtlReading, "BEŞİKTAŞ TERSANESİ": Exit Sub

Range("D75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre



Selection = TextBox9.Value
Range("F75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox10.Value
Range("G75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox11.Value
Range("H75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox12.Value
Range("I75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox13.Value
Range("J75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox14.Value
Range("K75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox15.Value
Range("L75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox16.Value
Range("M75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox17.Value
Range("N75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox18.Value
Range("O75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox19.Value
Range("P75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox20.Value
Range("Q75").End(xlUp).Offset(1, 0).Select ' Aşağıdan başlayarak A sütununda en son dolu satırın altındaki boş hücre
Selection = TextBox21.Value

End Sub