textboxtaki bilgileri yazdırma

[zahitsen]

arkdaşlar kod hata vermiyor ama yazdırma işlemini gerçekleştirmiyor hücrelere bi el atarsanız sevinicem.

 Private Sub CommandButton1_Click()
        If TextBox1.Text <> "" Then
        
            If TextBox2.Text <> "" Then
                
                    If Yeni_mi = True Then
                
           Son_Dolu_Satir = Sheets("ENJ-2013").Range("A65536").End(xlUp).Row
                
                        Bos_Satir = Son_Dolu_Satir + 1
                        
            Sheets("ENJ-2013").Range("A" & Bos_Satir).Value = TextBox1.Text
               Sheets("ENJ-2013").Range("B" & Bos_Satir).Value = TextBox2.Text
              Sheets("ENJ-2013").Range("C" & Bos_Satir).Value = TextBox3.Text
            Sheets("ENJ-2013").Range("D" & Bos_Satir).Value = ComboBox1.Text
            Sheets("ENJ-2013").Range("E" & Bos_Satir).Value = ComboBox2.Text
           Sheets("ENJ-2013").Range("F" & Bos_Satir).Value = ComboBox3.Text
          Sheets("ENJ-2013").Range("J" & Bos_Satir).Value = TextBox4.Text
           Sheets("ENJ-2013").Range("I" & Bos_Satir).Value = TextBox5.Text
            Sheets("ENJ-2013").Range("M" & Bos_Satir).Value = TextBox6.Text
              Sheets("ENJ-2013").Range("N" & Bos_Satir).Value = TextBox7.Text
             Sheets("ENJ-2013").Range("O" & Bos_Satir).Value = TextBox8.Text
               Sheets("ENJ-2013").Range("Q" & Bos_Satir).Value = TextBox8.Text
                        
                          Sheets("ENJ-2013").Select
                 End If
             Else
            
                    MsgBox "Soyadı girmeniz gerekiyor"
            
                End If
            
            Else
            
                MsgBox "İsim Girmeniz gerekiyor"
            
            End If
        
End Sub

 

[omerceri]

Aşağıdaki kodlarla değiştirin kodlarınızı

Private Sub CommandButton1_Click()
 If TextBox1.Text = "" Then
  MsgBox "Soyadı girmeniz gerekiyor"
  TextBox1.SetFocus
  Exit Sub
  End If
    If TextBox2.Text = "" Then
  MsgBox "Soyadı girmeniz gerekiyor"
  TextBox2.SetFocus
  Exit Sub
  End If
Son_Dolu_Satir = Sheets("ENJ-2013").Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1
                        
            Sheets("ENJ-2013").Range("A" & Bos_Satir).Value = TextBox1.Text
               Sheets("ENJ-2013").Range("B" & Bos_Satir).Value = TextBox2.Text
Sheets("ENJ-2013").Range("C" & Bos_Satir).Value = TextBox3.Text
            Sheets("ENJ-2013").Range("D" & Bos_Satir).Value = ComboBox1.Text
            Sheets("ENJ-2013").Range("E" & Bos_Satir).Value = ComboBox2.Text
           Sheets("ENJ-2013").Range("F" & Bos_Satir).Value = ComboBox3.Text
          Sheets("ENJ-2013").Range("J" & Bos_Satir).Value = TextBox4.Text
           Sheets("ENJ-2013").Range("I" & Bos_Satir).Value = TextBox5.Text
            Sheets("ENJ-2013").Range("M" & Bos_Satir).Value = TextBox6.Text
              Sheets("ENJ-2013").Range("N" & Bos_Satir).Value = TextBox7.Text
             Sheets("ENJ-2013").Range("O" & Bos_Satir).Value = TextBox8.Text
               Sheets("ENJ-2013").Range("Q" & Bos_Satir).Value = TextBox8.Text
                        
                          Sheets("ENJ-2013").Select

 

[zahitsen]

teşekkürler...

 

[zahitsen]

aşağıdaki kodlarla değiştirin kodlarınızı

private sub commandbutton1_click()
 ıf textbox1.text = "" then
  msgbox "soyadı girmeniz gerekiyor"
  textbox1.setfocus
  exit sub
  end ıf
    ıf textbox2.text = "" then
  msgbox "soyadı girmeniz gerekiyor"
  textbox2.setfocus
  exit sub
  end ıf
son_dolu_satir = sheets("enj-2013").range("a65536").end(xlup).row
                bos_satir = son_dolu_satir + 1
                        
            sheets("enj-2013").range("a" & bos_satir).value = textbox1.text
               sheets("enj-2013").range("b" & bos_satir).value = textbox2.text
sheets("enj-2013").range("c" & bos_satir).value = textbox3.text
            sheets("enj-2013").range("d" & bos_satir).value = combobox1.text
            sheets("enj-2013").range("e" & bos_satir).value = combobox2.text
           sheets("enj-2013").range("f" & bos_satir).value = combobox3.text
          sheets("enj-2013").range("j" & bos_satir).value = textbox4.text
           sheets("enj-2013").range("ı" & bos_satir).value = textbox5.text
            sheets("enj-2013").range("m" & bos_satir).value = textbox6.text
              sheets("enj-2013").range("n" & bos_satir).value = textbox7.text
             sheets("enj-2013").range("o" & bos_satir).value = textbox8.text
               sheets("enj-2013").range("q" & bos_satir).value = textbox8.text
                        
                          sheets("enj-2013").select

bir problemim var ekte dosyada anlattım yardım ederseniz sevinirim.