User Formda Seçtiğim Firmaya Ürün Ekletme

[esnekplastik]

Dosyayı ekledim.

Merhaba kusura bakmayın fazla kimseye yardımcı olamadan çok yardım bekliyorum ama iş biraz acil kusura bakmayın şimdi sadece şunu yapmak istiyorum seçtiğim sayfaya göre işlem sağlamak istiyorum örnek veriyorum a sayfasını seçtim oraya ürün ekleyebileyim orada ürün sileyim, orada geri al işlemi yapabileyim orada ödenen ekliyebileyim bunu yapmak için ne yapmam gerekiyor yani seçtiğim sayfaya göre işlem sağlatmak istiyorum.

Buna benzer ama sayfalar lisete şeklide olmalı...

 

[esnekplastik]

Up...

 

[Emir Hüseyin Çoban]

.

Elinizde sayfa ismi seçmeden ürün ekleme silme yapan tasarım ve kodlama var mı
Ona ilave mi yapılacak yoksa
Bu tasarım ve kodlama en baştanmı yapılacak.

.

 

[esnekplastik]

.

Elinizde sayfa ismi seçmeden ürün ekleme silme yapan tasarım ve kodlama var mı
Ona ilave mi yapılacak yoksa
Bu tasarım ve kodlama en baştanmı yapılacak.

.

Bir kısmı hazır mesela ürün ekleme, ödeme, firma ekleme, ama hazır olmayıp hazırlayabileceğim diğer kısımlarda var ürün silme, ürün bulma vs... ama sadece bir sayfada çalışıyor ben bunda sayfa seçmek istiyorum...

 

[Emir Hüseyin Çoban]

.

Küçük bir örnek mesela ürün eklemeyi yükleyin revize edelim.

.

 

[esnekplastik]

.

Küçük bir örnek mesela ürün eklemeyi yükleyin revize edelim.

.

Bir isteğim daha var o isteğimle birlite yükliyeyim mi?

 

[esnekplastik]

Dosya Ektedir.

 

[Emir Hüseyin Çoban]

.

1 ad combobox ilave edin.

Dim OdenenSonSatir As Variant
Private Sub CommandButton1_Click()

Dim sayfaismi As String
sayfaismi = ComboBox1.Text

If OdemeSekliYaz <> "" And OdenenYaz <> "" And OdenenTarihYaz <> "" Then

If IsNumeric(OdenenYaz.Value) Then
If IsDate(OdenenTarihYaz.Value) Then

OdenenSonSatir = WorksheetFunction.CountA(Worksheets(sayfaismi).Range("H:H")) + 3
MsgBox OdenenSonSatir

 If OdenenSonSatir = 5 Then
 
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 8) = 1
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 10) = OdenenYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = CDate(OdenenTarihYaz.Value)
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value
 
 
 Else
 
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 8) = Worksheets(Worksheets(sayfaismi)).Cells(OdenenSonSatir - 1, 8) + 1
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 10) = OdenenYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = CDate(OdenenTarihYaz.Value)
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value
  
 End If
 
  Else
 
 MsgBox "Tarihi Doğru Giriniz."
    
 End If

  Else
 
 MsgBox "Ödenen Kısmına Sayı Girmelisiniz."
    
 End If
 
 Else
 
 MsgBox "Yıldızlı Alanlar Boş Bırakmamalısınız."
    
 End If


End Sub

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

.

 

[esnekplastik]

.

1 ad combobox ilave edin.

Dim OdenenSonSatir As Variant
Private Sub CommandButton1_Click()

Dim sayfaismi As String
sayfaismi = ComboBox1.Text

If OdemeSekliYaz <> "" And OdenenYaz <> "" And OdenenTarihYaz <> "" Then

If IsNumeric(OdenenYaz.Value) Then
If IsDate(OdenenTarihYaz.Value) Then

OdenenSonSatir = WorksheetFunction.CountA(Worksheets(sayfaismi).Range("H:H")) + 3
MsgBox OdenenSonSatir

If OdenenSonSatir = 5 Then

  Worksheets(sayfaismi).Cells(OdenenSonSatir, 8) = 1
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 10) = OdenenYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = CDate(OdenenTarihYaz.Value)
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value


Else

  Worksheets(sayfaismi).Cells(OdenenSonSatir, 8) = Worksheets(Worksheets(sayfaismi)).Cells(OdenenSonSatir - 1, 8) + 1
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 9) = OdemeSekliYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 10) = OdenenYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = OdenenTarihYaz.Value
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 11) = CDate(OdenenTarihYaz.Value)
  Worksheets(sayfaismi).Cells(OdenenSonSatir, 12) = OdenenAciklamaYaz.Value

End If

  Else

MsgBox "Tarihi Doğru Giriniz."
 
End If

  Else

MsgBox "Ödenen Kısmına Sayı Girmelisiniz."
 
End If

Else

MsgBox "Yıldızlı Alanlar Boş Bırakmamalısınız."
 
End If


End Sub

Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

.

Bunu kaydet butonuna mı? ekliyeyim yoksa combox'a mı onu anlamadım hocam_? Ekle butonuna ekleyeceksem diğer kodları silmem gerekiyor mu?

 

[Emir Hüseyin Çoban]

.

Ödeme kaydet userfomunun arkasındaki tüm kodları silin, bunlaru yapıştırın.

.

 

[esnekplastik]

.

Ödeme kaydet userfomunun arkasındaki tüm kodları silin, bunlaru yapıştırın.

.

Hata alıyorum makroyu çağırmıyor bir türlü.

 

[Emir Hüseyin Çoban]

.

Userforma 1 ad ComboBox1 ekleyin.

.

 

[esnekplastik]

.

Userforma 1 ad ComboBox1 ekleyin.

.

Kusura bakmayın bir kaç defa işlem yapınca ekli sanıyorum.