(09/04/2012, 07:49)assenucler yazdı: Merhabalar ve iyi haftalar.
Dosyanın en son halini yükleyebilir misiniz?
Emek ve katkılar için teşekkürler.
Yapılması gereken şu kaldı.
- "Ana Sayfa" daki "CommandButton2" tıklandığında eklenen firmalardaki "L3:L14" aralığındaki ay toplamlarını "Ana Sayfa" daki C2:N2 aralığına aktarması
- Birde sayın "DUAYEN" in yazdığı
Kod:
If TextBox1.Value <> "" Then
Sheets("Ana Sayfa").Activate
Cells(1, 1).Select
Do While ActiveCell.Value <> ""
If Trim(ActiveCell.Value) = Trim(Me.TextBox1.Value) Then
If MsgBox(Me.TextBox1 & "Bu isimli Firma kayıtlı" & " Yinede kayıt yapılsın mı?", vbYesNo) = vbNo Then Exit Sub
End If
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Value = TextBox1.Value
End If
