Dolu hücrenin bir altına yazma ve kaydetme

[uguristanbul]

sayın hocalarım calısmam ekte sorunum su
1/ islem sayfasında firma bilgilerini yazıp firmalar sayfasında karsılık gelen hucrelere kaydetmek istiyorum bunu yaparken benzer kayıtta msg bozta uyarı vermeli (mt kodu hariç) mesela bu kod daha once tanımlanmıs gibi ve kaydet butonuna bastıgımda katdetmeli ve kaydedilecek hucre dolu ise bir alt hucreye kaydetmeli işallah anlatabilmişimdir

 

[Korhan Ayhan]

Selamlar,

Lütfen Türkçemizi biraz daha özen göstererek kullanmaya dikkat edin. Ben sorunuzu okurken yoruldum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton15_Click()
Dim sat As Long, k As Range
If TextBox1.Value = "" Then
    MsgBox "Kod boş olamaz..!!", vbCritical, "DİKKAT"
    TextBox1.Activate
    Exit Sub
End If
Set k = Sheets("FİRMALAR").Range("B2:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If k Is Nothing Then
    sat = Sheets("FİRMALAR").Cells(65536, "B").End(xlUp).Row + 1
    If sat >= 65534 Then
        MsgBox "Satır doldu..!!" & vbLf & "Yeni kayıt yapamazsınız..!!", vbCritical, "SATIR DOLDU"
        Exit Sub
    End If
    With Sheets("FİRMALAR")
        .Cells(sat, "B").Value = TextBox1.Value
        .Cells(sat, "C").Value = TextBox2.Value
        .Cells(sat, "D").Value = TextBox3.Value
        .Cells(sat, "E").Value = TextBox4.Value
        .Cells(sat, "D").Value = TextBox5.Value
        .Cells(sat, "E").Value = TextBox6.Value
        .Cells(sat, "F").Value = TextBox7.Value
        .Cells(sat, "G").Value = TextBox8.Value
        .Cells(sat, "H").Value = TextBox9.Value
    End With
        Else
        If MsgBox("KOD : " & TextBox1.Value & " Dağa önceden girilmiş..!!" & vbLf _
        & "Üstüne Kaydetmek istiyormusunuz??", vbYesNo + vbQuestion, "DİKKAT") = vbNo Then
            Exit Sub
        End If
    With Sheets("FİRMALAR")
        .Cells(k.Row, "C").Value = TextBox2.Value
        .Cells(k.Row, "D").Value = TextBox3.Value
        .Cells(k.Row, "E").Value = TextBox4.Value
        .Cells(k.Row, "D").Value = TextBox5.Value
        .Cells(k.Row, "E").Value = TextBox6.Value
        .Cells(k.Row, "F").Value = TextBox7.Value
        .Cells(k.Row, "G").Value = TextBox8.Value
        .Cells(k.Row, "H").Value = TextBox9.Value
    End With
End If
MsgBox "Kayıt Girildi..!!", vbOKOnly + vbInformation, "KAYIT"
End Sub

 

[uguristanbul]

hocam siz mukemmelsiniz çok çok tesekkur ederim

 

[uguristanbul]

hocam demin heyecandan fark edememişim vergi dairesini yamıyor ugrastım ama beceremmedim tekrar bir ilgilenirmisiniz lutfen
saygılarımla