Kod içerinde çalışmayan kod satırı hk.

K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Merhabalar,
Aşağıdaki SATISNOKAYDET kod bağımsız olarak bir modüle konulup bir buton tetiklemesi ile çalışıyor.
Yaptığı iş satıs userform'unun textbox4 değeri "isim soyisim") p sutununda var ise aynı zamanda p sutunundan 5 sutun ilerisindeki "U" sutunu 0 ise
"U" sutununa yeni satış numarasını giriyor.
Kod: 
Sub SATISNOKAYDET()
Set S5 = Sheets("SATISVERI")
Dim bul As Range
For Each bul In S5.Range("p2:p" & S5.Range("p65536").End(3).Row)
If bul.Text = satıs.TextBox4.Text And bul.Offset(0, 5).Value = 0 Then
bul.Offset(0, 5).Value = satıs.TextBox2.Value
End If
Next bul
End Sub
Bu kodu SATISVERIKAYDET genel kaydet kodlarının arasına gerek call komutu ile gerekse direk koyduğumda çalışmıyor.
Örnek dosya biraz karışık olduğu için koymadım kusura bakmayın.
Çok ilişkili bir dosya çünkü
Yardımcı olacak ustalara anydesk ile bağlanıp gösterebilirim. Çok emek verdiğim bir proğram. burda tıkandım.
0544 546 22 23
Teşekkür ederim.

Kod: 
Sub SATISVERIKAYDET()
On Error Resume Next
Application.ScreenUpdating = False
mukkontrol

If TextBox2.Value = "" Then
    MsgBox "Satış No Giriniz..", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox3.Value = "" Then
    MsgBox "Müşteri Seçimini Yapmadınız.", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox6.Value = 0 Then
    MsgBox "Liste Tutarını Giriniz", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox7.Value = 0 Then
    MsgBox "Net Satış Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
     If TextBox47.Value = "" Then
    MsgBox "Satınalma Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
    If ComboBox2.Value = "" Then
    MsgBox "Satış Temsilcisini giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
      If ComboBox1.Value = "" Then
    MsgBox "Satış Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
 
    If ComboBox3.Value = "" Then
    MsgBox "Sevkiyat Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If ComboBox3.Value = "TARİHİ KESİN SEVK" And TextBox9.Value = "" Then
    MsgBox "Kesin Sevk Tarihini Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox52.Value <> 0 Then
    MsgBox "Satış Peşinatı Veya Taksitlendirme Hatalı..", , "By Kemal Turan"
        Exit Sub
    End If
  Set S5 = Sheets("SATISVERI")
 
Set S1 = Sheets("SATISLAR")

sonsatır = S1.Range("A65536").End(xlUp).Row + 1

S1.Cells(sonsatır, 1) = WorksheetFunction.Max(S1.[a2:a50000]) + 1
S1.Cells(sonsatır, 2) = Format(CLng(CDate(satıs.TextBox1.Value))) 'SATIŞ TARİHİ
S1.Cells(sonsatır, 3) = Format(CDate(satıs.TextBox1.Value), "MMMM")
S1.Cells(sonsatır, 4) = Format(CDate(satıs.TextBox1.Value), "YYYY")
S1.Cells(sonsatır, 5) = satıs.TextBox2.Value 'SATIS NO
S1.Cells(sonsatır, 6) = satıs.ComboBox1.Value 'SATIS TÜRÜ
S1.Cells(sonsatır, 7) = satıs.TextBox3.Value 'CARİ NO
S1.Cells(sonsatır, 8) = satıs.TextBox4.Value 'CARİ ADI
S1.Cells(sonsatır, 9) = Format(satıs.TextBox5, "(0) ### ### ## ##") 'TLF NO
S1.Cells(sonsatır, 10) = Format(CLng(CDbl(satıs.TextBox6.Value))) * 1 'LİSTE TUTARI
S1.Cells(sonsatır, 11) = Format(CLng(CDbl(satıs.TextBox7.Value))) * 1 'NET TUTAR

S1.Cells(sonsatır, 12) = Format(CLng(CDbl(satıs.TextBox48.Value))) * 1 'İSKONTO TUTAR
S1.Cells(sonsatır, 13) = Format(CDbl(satıs.TextBox8.Value), "0.00") * 1 'İSKONTO YÜZDE
S1.Cells(sonsatır, 14) = Format(CLng(CDbl(satıs.TextBox47.Value))) * 1 'TOPTAN ALIŞ FİYATI
S1.Cells(sonsatır, 15) = Format(CLng(CDbl(satıs.TextBox49.Value))) * 1 'BRÜT KAR
S1.Cells(sonsatır, 16) = satıs.ComboBox2.Value 'PERSONEL ADI
S1.Cells(sonsatır, 17) = satıs.ComboBox3.Value 'TASLİMAT TÜRÜ
If TextBox9.Value <> "" Then
S1.Cells(sonsatır, 18) = Format(CLng(CDate(satıs.TextBox9.Value))) 'SEVK TARİHİ
End If
S1.Cells(sonsatır, 19) = Sheets("TANIMLAR").Range("F1").Value 'SEVK TARİHİ
If TextBox51.Value > 0 Then
ACIKHESAPTAKSITKAYIT
End If

If TextBox16.Value > 0 Then
NAKITSATISPESINATALACAKKAYIT
End If

If TextBox16.Value > 0 Then
Call SATISPESINATKAYITNAKIT
End If
'''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox17.Value > 0 Then
Call KKARTSATISPESINATALACAKKAYIT
End If
If TextBox17.Value > 0 Then
Call SATISPESINATKAYITKKARTI
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

If TextBox18.Value > 0 Then
Call EFTSATISPESINATALACAKKAYIT
End If

If TextBox18.Value > 0 Then
Call SATISPESINATKAYITEFT
End If
ThisWorkbook.Save
Call hesap
ActiveWorkbook.Save
satısgunluk.SATISGETIR
MsgBox "Satış Kayıt İşlemi Tamam", vbInformation, "VBA KT YAZILIM"
Unload satıs
Unload satıscarıtoplam
End Sub
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Sub SATISVERIKAYDET() kod bölümünde,

sadece aşağıdaki tanımlamayı yapmışsınız.
Set S5 = Sheets("SATISVERI")

Bu bölümü çağıracak kod yada bu bölümün kodları yok.
Sub SATISNOKAYDET()
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri hocam merhaba
Bu kodu farklı bir butona bağladığımda çalışıyor.
Örnek genel kod içerisinde olan
Kod: 
If TextBox16.Value > 0 Then
Call SATISPESINATKAYITNAKIT
End If
Bu çalışıyor. Nasıl yapmam gerekiyor.
Teşekür ederim.
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Bu şekilde kod inceleyip uyarlar mısınız.

C#: 
Dim sh5 As Variant

Sub SATISNOKAYDET()
  Set sh5 = Sheets("SATISVERI")
  'adisoyadi = satıs.TextBox4.Text
  'yenisatisno=satıs.TextBox2.Value

  yenisatisno = "1234"
  adisoyadi = "Asri Akdeniz"

  satir = varmi(adisoyadi)
  If satir > 0 And sh5.Cells(satir, "U") = 0 Then
     sh5.Cells(satir, "U").Value = yenisatisno
  End If
End Sub

Function varmi(bilgi) As Long
    Set bulunan = sh5.Range("P:P").Find(bilgi, , xlValues, xlWhole)
    If Not bulunan Is Nothing Then
       varmi = bulunan.Row
       Exit Function
    End If
    varmi = 0
End Function
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri hocam olmadı maalesef,
İlginiz için teşekkür ederim.
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
kemal turan' Alıntı:
Asri hocam olmadı maalesef,
İlginiz için teşekkür ederim.
Genişletmek için tıkla ...
Tırnakları kaldırıp diğerlerine eklediniz mi?
Test ettim fonksiyon çağırıldığında çalışır.

adisoyadi = satıs.TextBox4.Text
yenisatisno=satıs.TextBox2.Value

' yenisatisno = "1234"
'adisoyadi = "Asri Akdeniz"
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
resimdeki şekilde hocam ekledim
 

Ekli dosyalar

K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Kod: 
Dim sh5 As Variant

Sub SATISNOKAYDET()
  Set sh5 = Sheets("SATISVERI")
  adisoyadi = satıs.TextBox4.Text
  yenisatisno = satıs.TextBox2.Value

  yenisatisno = "1234"
  adisoyadi = "Asri Akdeniz"

  satir = varmi(adisoyadi)
  If satir > 0 And sh5.Cells(satir, "U") = 0 Then
     sh5.Cells(satir, "U").Value = yenisatisno
  End If
End Sub

Function varmi(bilgi) As Long
    Set bulunan = sh5.Range("P:P").Find(bilgi, , xlValues, xlWhole)
    If Not bulunan Is Nothing Then
       varmi = bulunan.Row
       Exit Function
    End If
    varmi = 0
End Function
Kod: 
Sub SATISVERIKAYDET()
On Error Resume Next
Application.ScreenUpdating = False
mukkontrol

If TextBox2.Value = "" Then
    MsgBox "Satış No Giriniz..", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox3.Value = "" Then
    MsgBox "Müşteri Seçimini Yapmadınız.", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox6.Value = 0 Then
    MsgBox "Liste Tutarını Giriniz", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox7.Value = 0 Then
    MsgBox "Net Satış Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
     If TextBox47.Value = "" Then
    MsgBox "Satınalma Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
    If ComboBox2.Value = "" Then
    MsgBox "Satış Temsilcisini giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
      If ComboBox1.Value = "" Then
    MsgBox "Satış Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
 
    If ComboBox3.Value = "" Then
    MsgBox "Sevkiyat Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If ComboBox3.Value = "TARİHİ KESİN SEVK" And TextBox9.Value = "" Then
    MsgBox "Kesin Sevk Tarihini Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox52.Value <> 0 Then
    MsgBox "Satış Peşinatı Veya Taksitlendirme Hatalı..", , "By Kemal Turan"
        Exit Sub
    End If
  
Set S1 = Sheets("SATISLAR")

sonsatır = S1.Range("A65536").End(xlUp).Row + 1

S1.Cells(sonsatır, 1) = WorksheetFunction.Max(S1.[a2:a50000]) + 1
S1.Cells(sonsatır, 2) = Format(CLng(CDate(satıs.TextBox1.Value))) 'SATIŞ TARİHİ
S1.Cells(sonsatır, 3) = Format(CDate(satıs.TextBox1.Value), "MMMM")
S1.Cells(sonsatır, 4) = Format(CDate(satıs.TextBox1.Value), "YYYY")
S1.Cells(sonsatır, 5) = satıs.TextBox2.Value 'SATIS NO
S1.Cells(sonsatır, 6) = satıs.ComboBox1.Value 'SATIS TÜRÜ
S1.Cells(sonsatır, 7) = satıs.TextBox3.Value 'CARİ NO
S1.Cells(sonsatır, 8) = satıs.TextBox4.Value 'CARİ ADI
S1.Cells(sonsatır, 9) = Format(satıs.TextBox5, "(0) ### ### ## ##") 'TLF NO
S1.Cells(sonsatır, 10) = Format(CLng(CDbl(satıs.TextBox6.Value))) * 1 'LİSTE TUTARI
S1.Cells(sonsatır, 11) = Format(CLng(CDbl(satıs.TextBox7.Value))) * 1 'NET TUTAR

S1.Cells(sonsatır, 12) = Format(CLng(CDbl(satıs.TextBox48.Value))) * 1 'İSKONTO TUTAR
S1.Cells(sonsatır, 13) = Format(CDbl(satıs.TextBox8.Value), "0.00") * 1 'İSKONTO YÜZDE
S1.Cells(sonsatır, 14) = Format(CLng(CDbl(satıs.TextBox47.Value))) * 1 'TOPTAN ALIŞ FİYATI
S1.Cells(sonsatır, 15) = Format(CLng(CDbl(satıs.TextBox49.Value))) * 1 'BRÜT KAR
S1.Cells(sonsatır, 16) = satıs.ComboBox2.Value 'PERSONEL ADI
S1.Cells(sonsatır, 17) = satıs.ComboBox3.Value 'TASLİMAT TÜRÜ
If TextBox9.Value <> "" Then
S1.Cells(sonsatır, 18) = Format(CLng(CDate(satıs.TextBox9.Value))) 'SEVK TARİHİ
End If
S1.Cells(sonsatır, 19) = Sheets("TANIMLAR").Range("F1").Value 'SEVK TARİHİ
If TextBox51.Value > 0 Then
ACIKHESAPTAKSITKAYIT
End If

If TextBox16.Value > 0 Then
NAKITSATISPESINATALACAKKAYIT
End If

If TextBox16.Value > 0 Then
Call SATISPESINATKAYITNAKIT
End If
'''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox17.Value > 0 Then
Call KKARTSATISPESINATALACAKKAYIT
End If
If TextBox17.Value > 0 Then
Call SATISPESINATKAYITKKARTI
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

If TextBox18.Value > 0 Then
Call EFTSATISPESINATALACAKKAYIT
End If

If TextBox18.Value > 0 Then
Call SATISPESINATKAYITEFT
End If

Call SATISNOKAYDET



ThisWorkbook.Save
Call hesap
ActiveWorkbook.Save
satısgunluk.SATISGETIR
MsgBox "Satış Kayıt İşlemi Tamam", vbInformation, "VBA KT YAZILIM"
Unload satıs
Unload satıscarıtoplam
End Sub
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
kemal turan' Alıntı:
Kod: 
Dim sh5 As Variant

Sub SATISNOKAYDET()
  Set sh5 = Sheets("SATISVERI")
  adisoyadi = satıs.TextBox4.Text
  yenisatisno = satıs.TextBox2.Value

  yenisatisno = "1234"
  adisoyadi = "Asri Akdeniz"

  satir = varmi(adisoyadi)
  If satir > 0 And sh5.Cells(satir, "U") = 0 Then
     sh5.Cells(satir, "U").Value = yenisatisno
  End If
End Sub

Function varmi(bilgi) As Long
    Set bulunan = sh5.Range("P:P").Find(bilgi, , xlValues, xlWhole)
    If Not bulunan Is Nothing Then
       varmi = bulunan.Row
       Exit Function
    End If
    varmi = 0
End Function
Genişletmek için tıkla ...

Üstteki kodu bu şekidle düzenleyin.

C#: 
Dim sh5 As Variant

Sub SATISNOKAYDET()
  Set sh5 = Sheets("SATISVERI")
  satir = varmi(satıs.TextBox4.Text)
  If satir > 0 And sh5.Cells(satir, "U") = 0 Then
     sh5.Cells(satir, "U").Value = satıs.TextBox2.Value
  End If
End Sub

Function varmi(bilgi) As Long
    Set bulunan = sh5.Range("P:P").Find(bilgi, , xlValues, xlWhole)
    If Not bulunan Is Nothing Then
       varmi = bulunan.Row
       Exit Function
    End If
    varmi = 0
End Function
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri hocam merhaba,
Yine olmadı maalesef, ayrı butona bağlayıp denedim yine olmadı.
Ama kodunuzu çözümleyebiliyorum olmaması için bir neden yok farklı bir neden var ama nedir bilemiyorum.
Benim kullanıdığım kod bağımsız buton ile değiştiriyordu. Sizin kod da o da olmadı.
Tekrar teşekkür ederim zaman ayırdığınız için.
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri Hocam merhaba,
Kod: 
Sub SATISVERIKAYDET()
On Error Resume Next
Application.ScreenUpdating = False
mukkontrol

If TextBox2.Value = "" Then
    MsgBox "Satış No Giriniz..", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox3.Value = "" Then
    MsgBox "Müşteri Seçimini Yapmadınız.", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox6.Value = 0 Then
    MsgBox "Liste Tutarını Giriniz", , "By Kemal Turan"
        Exit Sub
    End If
    If TextBox7.Value = 0 Then
    MsgBox "Net Satış Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
     If TextBox47.Value = "" Then
    MsgBox "Satınalma Tutarını Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
    If ComboBox2.Value = "" Then
    MsgBox "Satış Temsilcisini giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
      If ComboBox1.Value = "" Then
    MsgBox "Satış Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
 
    If ComboBox3.Value = "" Then
    MsgBox "Sevkiyat Türünü giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If ComboBox3.Value = "TARİHİ KESİN SEVK" And TextBox9.Value = "" Then
    MsgBox "Kesin Sevk Tarihini Giriniz.", , "By Kemal Turan"
        Exit Sub
    End If
If TextBox52.Value <> 0 Then
    MsgBox "Satış Peşinatı Veya Taksitlendirme Hatalı..", , "By Kemal Turan"
        Exit Sub
    End If
  
Set S1 = Sheets("SATISLAR")

sonsatır = S1.Range("A65536").End(xlUp).Row + 1

S1.Cells(sonsatır, 1) = WorksheetFunction.Max(S1.[a2:a50000]) + 1
S1.Cells(sonsatır, 2) = Format(CLng(CDate(satıs.TextBox1.Value))) 'SATIŞ TARİHİ
S1.Cells(sonsatır, 3) = Format(CDate(satıs.TextBox1.Value), "MMMM")
S1.Cells(sonsatır, 4) = Format(CDate(satıs.TextBox1.Value), "YYYY")
S1.Cells(sonsatır, 5) = satıs.TextBox2.Value 'SATIS NO
S1.Cells(sonsatır, 6) = satıs.ComboBox1.Value 'SATIS TÜRÜ
S1.Cells(sonsatır, 7) = satıs.TextBox3.Value 'CARİ NO
S1.Cells(sonsatır, 8) = satıs.TextBox4.Value 'CARİ ADI
S1.Cells(sonsatır, 9) = Format(satıs.TextBox5, "(0) ### ### ## ##") 'TLF NO
S1.Cells(sonsatır, 10) = Format(CLng(CDbl(satıs.TextBox6.Value))) * 1 'LİSTE TUTARI
S1.Cells(sonsatır, 11) = Format(CLng(CDbl(satıs.TextBox7.Value))) * 1 'NET TUTAR

S1.Cells(sonsatır, 12) = Format(CLng(CDbl(satıs.TextBox48.Value))) * 1 'İSKONTO TUTAR
S1.Cells(sonsatır, 13) = Format(CDbl(satıs.TextBox8.Value), "0.00") * 1 'İSKONTO YÜZDE
S1.Cells(sonsatır, 14) = Format(CLng(CDbl(satıs.TextBox47.Value))) * 1 'TOPTAN ALIŞ FİYATI
S1.Cells(sonsatır, 15) = Format(CLng(CDbl(satıs.TextBox49.Value))) * 1 'BRÜT KAR
S1.Cells(sonsatır, 16) = satıs.ComboBox2.Value 'PERSONEL ADI
S1.Cells(sonsatır, 17) = satıs.ComboBox3.Value 'TASLİMAT TÜRÜ
If TextBox9.Value <> "" Then
S1.Cells(sonsatır, 18) = Format(CLng(CDate(satıs.TextBox9.Value))) 'SEVK TARİHİ
End If
S1.Cells(sonsatır, 19) = Sheets("TANIMLAR").Range("F1").Value 'SEVK TARİHİ
If TextBox51.Value > 0 Then
ACIKHESAPTAKSITKAYIT
End If

If TextBox16.Value > 0 Then
NAKITSATISPESINATALACAKKAYIT
End If

If TextBox16.Value > 0 Then
Call SATISPESINATKAYITNAKIT
End If
'''''''''''''''''''''''''''''''''''''''''''''''''
If TextBox17.Value > 0 Then
Call KKARTSATISPESINATALACAKKAYIT
End If
If TextBox17.Value > 0 Then
Call SATISPESINATKAYITKKARTI
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''

If TextBox18.Value > 0 Then
Call EFTSATISPESINATALACAKKAYIT
End If

If TextBox18.Value > 0 Then
Call SATISPESINATKAYITEFT
End If

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set S5 = Sheets("SATISVERI")
Dim bul As Range
For Each bul In S5.Range("p2:p" & S5.Range("p65536").End(3).Row)
bul.Offset(0, 5).Value = satıs.TextBox2.Value
Next bul

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ThisWorkbook.Save
Call hesap
ActiveWorkbook.Save
satısgunluk.SATISGETIR
MsgBox "Satış Kayıt İşlemi Tamam", vbInformation, "VBA KT YAZILIM"
Unload satıs
Unload satıscarıtoplam
End Sub
Bu şekilde kod içerisinde satış numarasını ekliyor.
Veri ambarındaki tabloda bir kişi farklı günlerde alışveriş yapmış ise önceki satışın satırlarında U sutununda satış no yazıyor.
Yeni satışda yeni satış numarası alması lazım.
Ham veride 2 nci satışın U sutunundaki değeri 0.
Özet olarak benim koddaki sorgu tek sorgu , buraya ikinci sorguyu kriter olarak ekleyebilirsek olacak.
örnek:
Kod: 
If bul.Text = satıs.TextBox4.Text And bul.Offset(0, 5).Value = 0 Then
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Merhaba,
Aşağıdaki kodu internetten araştırarak buldum.
Burada dikkatimi çeken bir husus oldu.
Satısverı sayfası aktif yani görünür userformdan buton click olayında iken kod çalışıyor. Başka sayfada iken kod çalışmıyor.
S5 için tanımlama yaptım. s5.select dedim yine olmuyor. yani gidip o sayfada işlem yapmıyor.
Bu sorun açısından ipucu olabilirmi.

Kod: 
Set S5 = Sheets("SATISVERI")
Sheets("SATISVERI").Select
Dim t As Long
Dim S5 As Worksheets
For t = 2 To S5.Range("p65536").End(3).Row
    If Cells(t, "P").Text = satıs.TextBox4.Text Then
        Select Case CInt(S5.Cells(t, "u").Value)
            Case Is = 0
                S5.Cells(t, "u").Value = satıs.TextBox2.Value
        End Select
    End If
Next t
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
Userform kod bölümünün haricindeki modüllerde kullacağınız zamana,
Aşağıdaki şekilde form ismi ile kullanıp dener misiniz

userform1.TextBox4.Text

Hiç bir zaman Türkçe karakterleri değişkenlerde ve fonksiyon isimlerinde kullanmam.
Kullanılabiliyor ancak ben kullanmıyorum. Kullanılmaması daha sorunsuz olacağını düşünüyorum.

Parça parça kod da sorun çözmek zor.
Daha fazla yardımcı olamam.
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri hocam
15 yıldır excelle uğraşıyorum. Böyle birşey görmedim.
Aynı userform içerisinde kod içerisinde 5 adet ilişkili kod, modüle bağlı kodlar çalışıyor.
Bu kod niye çalışmıyor anlayamıyorum.
Dosya ekledim Listview kullandım inşallah sizde sıkıntı çıkarmaz.
işleyiş
ana sahifesinde form açın, Perakende sayfasında Satış veri al butonuna tıklayın.
Satış veri sayfasında U sutunu 0 olanlar listeleniyor.
Listview e çift tıklayın satış formu çıkar. Cariyi seçin, aşağıdaki bilgileri doldurun. tahsilat kısmınına nakit girin. kaydet tuşuna basın.
İşlemler kaydedildi mesaj aldığınızda satışveri listesinin temizlenmesi lazım.
Kullanıcı = Ramazan
Şifre = 12345
 
Asri

Asri

Katılım
24 Nisan 2005
Mesajlar
3,671
Excel Vers. ve Dili
Office 2016 EN 64 Bit
Altın Üyelik Bitiş Tarihi
25/05/2022
kemal turan' Alıntı:
Asri hocam
15 yıldır excelle uğraşıyorum. Böyle birşey görmedim.
Aynı userform içerisinde kod içerisinde 5 adet ilişkili kod, modüle bağlı kodlar çalışıyor.
Bu kod niye çalışmıyor anlayamıyorum.
Dosya ekledim Listview kullandım inşallah sizde sıkıntı çıkarmaz.
işleyiş
ana sahifesinde form açın, Perakende sayfasında Satış veri al butonuna tıklayın.
Satış veri sayfasında U sutunu 0 olanlar listeleniyor.
Listview e çift tıklayın satış formu çıkar. Cariyi seçin, aşağıdaki bilgileri doldurun. tahsilat kısmınına nakit girin. kaydet tuşuna basın.
İşlemler kaydedildi mesaj aldığınızda satışveri listesinin temizlenmesi lazım.
Kullanıcı = Ramazan
Şifre = 12345
Genişletmek için tıkla ...
Ekli dosya indiremiyorum :)
asriakdeniz@gmail.com yada harici link lazım.
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Asri çok zamanınızı aldım.
Hakkınız helal ediniz.
Anydesk versem bağalanbilirmisiniz.
603 466 925
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
32 bit kullandığım için sizde sorun çıkarabilir.
 
K

kemal turan

Altın Üye
Katılım
10 Haziran 2011
Mesajlar
1,667
Excel Vers. ve Dili
Excel 2010 32 bit
Altın Üyelik Bitiş Tarihi
06-10-2032
Mail adresinize gönderdim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst