mükerrer kayıtta uyarsın

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, ekli dosyamda isteğimi anlattım, mükerrer kayıtta beni uyaracak bir makro istiyorum, hepinize teşekkürler.

 

[Huseyinkis]

Merhaba arkadaşlar, ekli dosyamda isteğimi anlattım, mükerrer kayıtta beni uyaracak bir makro istiyorum, hepinize teşekkürler.

Ekteki kodları denermisiniz.

Sub yeni_malzeme()
ss = Sheets("STOK").[A5000].End(3).Row + 1
Malzeme = Sheets("ANA EKRAN").Range("b17").Value
aaa = WorksheetFunction.CountIf(Sheets("STOK").Range("C1:C" & ss), Malzeme)

If aaa = 0 Then
GoTo ekle
ElseIf MsgBox("Stok Mevcut eklemek istiyormusunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbYes Then
GoTo ekle
Else
GoTo Son
End If
ekle:
With Sheets("STOK")
    .Cells(ss, 1).Value = ss - 3
    .Cells(ss, 3).Value = Sheets("ANA EKRAN").Cells(17, 2).Value
    .Cells(ss, 5).Value = Sheets("ANA EKRAN").Cells(17, 5).Value
    MsgBox "MALZEME EKLENDİ ", vbInformation, "SONUÇ"
    End With
Son:
    End Sub

 

[Hacı Bayram ÖZKAN]

Teşekkürler Hüseyin bey; çalıştı çokta güzel oldu, birde abi, bu dosyayı kapattığımda ilk açılışta her zaman "Ana Ekran" sayfasında açılmasını istiyorum. Bu nasıl olur, yani Giriş, Çıkış veya Stok sayfasında kapatınca nerde ise orada açılıyor, her zaman açılışın ana ekran sayfasında açılmasını istiyorum. Emeğine sağlık dua ile kal.

 

[CILEKESH]

Teşekkürler Hüseyin bey; çalıştı çokta güzel oldu, birde abi, bu dosyayı kapattığımda ilk açılışta her zaman "Ana Ekran" sayfasında açılmasını istiyorum. Bu nasıl olur, yani Giriş, Çıkış veya Stok sayfasında kapatınca nerde ise orada açılıyor, her zaman açılışın ana ekran sayfasında açılmasını istiyorum. Emeğine sağlık dua ile kal.

Thisworkbook (Bu çalışma Kitabı) bölümüne şu kodu kopyalayın.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("ANA EKRAN").Select
End Sub

 

[Hacı Bayram ÖZKAN]

Üstadım çalışmadı, stokta kayıt ettim açınca yine stok sayfasında açıldı.

 

[Excelmy]

Bu şekilde uygulama yapın

VBA ThisWorkbook

Private Sub Workbook_Open()
Sheets("ANA EKRAN").Select
End Sub

 

[CILEKESH]

Üstadım çalışmadı, stokta kayıt ettim açınca yine stok sayfasında açıldı.

Thisworkbook bölümüne kayıt etmelisiniz. Stok sayfasının kod bölümüne kayıt etmiş olabilirsiniz. Ben denedim çalışıyor.

 

[Hacı Bayram ÖZKAN]

cİLEKESH BEY dikkat ettim, yine çalışmadı ThisWorkbook sayfasına yapıştırdım olmadı, ilgine çok teşekkür ederim, yalnız Kuman beyin yazdığı kod çalıştı gerek size gerek Kuman beye teşekkür ederim, dua ile kalın eksik olmayın her zaman yardımlarınızı bekleriz. Esenlikle kalın