Rapor Alma

[MANAGER]

ArkadaŞlar Yardim LÜtfen Rapor Almak İstİyorum Ama Beceremedİm

 

[ASMET67]

Hangi kriterlerde rapor almak istiyorsunuz açıklama yapmamışsınız.

 

[MANAGER]

Pardon ArkadaŞim Şİmdİ Dosyayi İncelersenİz GÖrebİlİrsİnİz

 

[ASMET67]

Dosyanızı tamam

Dosyanıızı incelermisiniz.
Rapor kısmını pek anlamadım Anladığım kadarıyla birşeyler yaptım.

 

[MANAGER]

ya hocam size nasıl teşşekür edecegimi bilemiyorum çok teşekkür ederim hakketten çok fazla yardımcı oldunuz tekrar tekrar teşekkür ederim

 

[MANAGER]

plasiyer rut planı ve müşteri dolap takibi.......!

asmet 67 abi yardımın için çok teşşekkür ederim bu dosyayada aynı formulü uygulayabilirmisiniz çok oluyorum biliyorum ama çaresizim yardımlarınız için şimdiden çok teşekkür ediyorum

buradada yap mak istediğim bilgi başlıkları altına veri aktarabilecegim bir arayüz ve arama yapabilecegim bir arayüz adresten yada telefondan yada plasiyerden yada senet nodan arama yapabilmek mümkünmüdür

ayrıca plasiyerlerden rapor almak istiyorum örnek a plasiyeri seçtim bana müşterilerini ve onda görünen dolapları rapor etsin

şimdiden değerli emekleriniz için teşekkür ederim

 

[MANAGER]

Abİ Selam Sİzden Rİcam YolladiĞiniz Dosyaya Bİr Bakabİlİrmİsİnİz Rapor Kisminda Exele Aktarda Hata Verİyor Bİrde TÜm ÜrÜnlerİn Son Depoda Kalan Kismini Ve Ortalama GÜn Kismini Rapor Olarak Yazicidan Ciktisini Almam MÜmkÜn Olurmu

 

[MANAGER]

Private Sub ComboBox1_Click()
Dim s1 As Worksheet
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")


On Error Resume Next
TextBox9.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:Z"), 2, False)
TextBox10.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:Z"), 3, False)
TextBox11.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:AZ"), 43, False)
TextBox12.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:AZ"), 44, False)
TextBox13.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:AZ"), 45, False)
TextBox14.Value = WorksheetFunction.VLookup(ComboBox1.Value, s1.Range("B:AZ"), 46, False)

End Sub


Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TEMIZLE1
End Sub

Private Sub ComboBox2_Change()
Dim s1 As Worksheet
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")


On Error Resume Next
TextBox15.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:Z"), 2, False)
TextBox16.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:Z"), 3, False)
TextBox17.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:AZ"), 43, False)
TextBox18.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:AZ"), 44, False)
TextBox19.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:AZ"), 45, False)
TextBox20.Value = WorksheetFunction.VLookup(ComboBox2.Value, s1.Range("B:AZ"), 46, False)
End Sub

Private Sub ComboBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TEMIZLE1
End Sub

Private Sub ComboBox3_Change()

End Sub

Private Sub ComboBox3_Click()

End Sub

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")
Set s2 = ThisWorkbook.Worksheets("Rapor")
say = s1.Cells(65536, 2).End(xlUp).Row

For Each ara In s1.Range("b6:b" & s1.Cells(65536, 2).End(xlUp).Row)
If StrConv(ara.Value, vbUpperCase) = StrConv(ComboBox2.Value, vbUpperCase) Then

s1.Range(ara.Offset(0, 1).Address).Value = TextBox15.Value
s1.Range(ara.Offset(0, 2).Address).Value = TextBox16.Value
s1.Range(ara.Offset(0, 44).Address).Value = TextBox19.Value
s1.Range(ara.Offset(0, 45).Address).Value = TextBox20.Value
a = 11
For i = 21 To 51
If Controls("Textbox" & i).Value = "" Then GoTo son
If Controls("Textbox" & i) Then
s1.Range(ara.Offset(0, a).Address).Value = Controls("textbox" & i).Value
son:
a = a + 1

End If
Next






MsgBox " Kayit Girişiniz Tamamlandi"


Exit Sub
End If
Next ara
End Sub

Private Sub CommandButton10_Click()
Dim s1 As Worksheet
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")


On Error Resume Next
TextBox52.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:Z"), 2, False)
TextBox53.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:Z"), 3, False)
TextBox54.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:AZ"), 43, False)
TextBox55.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:AZ"), 44, False)
TextBox56.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:AZ"), 45, False)
TextBox57.Value = WorksheetFunction.VLookup(ComboBox3.Value, s1.Range("B:AZ"), 46, False)
End Sub

Private Sub CommandButton2_Click()
TEMIZLE1
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub CommandButton4_Click()
Application.ScreenUpdating = False

'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")
Set s2 = ThisWorkbook.Worksheets("Rapor")
say = s1.Cells(65536, 2).End(xlUp).Row

For Each ara In s1.Range("b6:b" & s1.Cells(65536, 2).End(xlUp).Row)
If StrConv(ara.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then

s1.Range(ara.Offset(0, 1).Address).Value = TextBox9.Value
s1.Range(ara.Offset(0, 2).Address).Value = TextBox10.Value
s1.Range(ara.Offset(0, 44).Address).Value = TextBox13.Value
s1.Range(ara.Offset(0, 45).Address).Value = TextBox14.Value
s1.Range(ara.Offset(0, 3).Address).Value = Format(TextBox1.Value, "dd.mm.yy")
s1.Range(ara.Offset(0, 4).Address).Value = Val(TextBox2.Value)
s1.Range(ara.Offset(0, 5).Address).Value = Format(TextBox3.Value, "dd.mm.yy")
s1.Range(ara.Offset(0, 6).Address).Value = Val(TextBox4.Value)
s1.Range(ara.Offset(0, 7).Address).Value = Format(TextBox5.Value, "dd.mm.yy")
s1.Range(ara.Offset(0, 8).Address).Value = Val(TextBox6.Value)
s1.Range(ara.Offset(0, 9).Address).Value = Format(TextBox7.Value, "dd.mm.yy")
s1.Range(ara.Offset(0, 10).Address).Value = Val(TextBox8.Value)
MsgBox " Kayit Girişiniz Tamamlandi"


Exit Sub
End If
Next ara
End Sub

Private Sub CommandButton5_Click()
TEMIZLE1
End Sub

Private Sub CommandButton6_Click()
Unload Me
End Sub

Private Sub CommandButton7_Click()
Application.ScreenUpdating = False

'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")
Set s2 = ThisWorkbook.Worksheets("Rapor")
say = s1.Cells(65536, 2).End(xlUp).Row
s2.Range("b65536").End(xlUp).Offset(1, 0).Value = ComboBox3.Value
s2.Range("b65536").End(xlUp).Offset(0, 1).Value = TextBox52.Value
s2.Range("b65536").End(xlUp).Offset(0, 2).Value = TextBox53.Value
s2.Range("b65536").End(xlUp).Offset(0, 3).Value = TextBox54.Value
s2.Range("b65536").End(xlUp).Offset(0, 4).Value = TextBox55.Value
s2.Range("b65536").End(xlUp).Offset(0, 5).Value = TextBox56.Value
s2.Range("b65536").End(xlUp).Offset(0, 6).Value = TextBox57.Value
s2.Range("b65536").End(xlUp).Offset(0, 7).Value = TextBox58.Value
MsgBox " Excele işlenmiştir."
End Sub

Private Sub CommandButton8_Click()
TEMIZLE1
End Sub

Private Sub CommandButton9_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False

'On Error Resume Next
Dim say As Long, say1 As Long, say3 As Long
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet, s4 As Worksheet
Dim ADOSYA As String
ADOSYA = ThisWorkbook.Name
Windows(ADOSYA).Activate
Set s1 = ThisWorkbook.Worksheets("Ana_Sayfa")
Set s2 = ThisWorkbook.Worksheets("Rapor")
say = s1.Cells(65536, 2).End(xlUp).Row
ComboBox1.ListRows = "15"
ComboBox1.RowSource = "Ana_Sayfa!b6:B" & s1.Cells(65536, 2).End(xlUp).Row
ComboBox2.ListRows = "15"
ComboBox2.RowSource = "Ana_Sayfa!b6:B" & s1.Cells(65536, 2).End(xlUp).Row
ComboBox3.ListRows = "15"
ComboBox3.RowSource = "Ana_Sayfa!b6:B" & s1.Cells(65536, 2).End(xlUp).Row

End Sub
Private Sub TEMIZLE1()
Application.ScreenUpdating = False

'On Error Resume Next
Application.ScreenUpdating = False
For Each NESNE1 In Controls
If TypeName(NESNE1) = "TextBox" Then ' NESNENIN ADI YAZILACAK
NESNE1.Value = ""
End If
Next NESNE1
For Each nesne In Controls
If TypeName(nesne) = "ComboBox" Then ' NESNENIN ADI YAZILACAK
nesne.Value = ""
End If
Next nesne
'For Each nesne2 In Controls
'If TypeName(nesne2) = "ListBox" Then ' NESNENIN ADI YAZILACAK
'nesne2.RowSource = ""
'End If
'Next nesne2

End Sub

BÖYLE BİR HATA VERİYOR

 

[ASMET67]

Dosyanızı denermisiniz.

 

[MANAGER]

üstad son bir şey söylicem şimdi ben bunu heray tutuyorum yani aylık bir form bu ,şöyle olabilirmi stoğu ay ,ay tutubilirmiyim ve her ay ürünler diğer aya devir yapsın.şimdiden teşekkürler

 

[ASMET67]

Liste dosyanızı denermisiniz
Veri sayfaından bilgi çekmektedir.
Buradaki verileri girmeniz gerekir.:hey:

 

[MANAGER]

asmet selam hata veriyor hata kodu aşagıda ilgilenirseniz sevinirim.ayrıca bende tüm adresler var burada hangi sayfaya kopyala yapıştır yapabilirim s1.Range(ara.Offset(0, 4).Address).Value = Format(TextBox4.Value, "dd.mm.yyyy")

 

[ASMET67]

Denermisiniz