Farklı sayfalardan veriyi tek sayfaya toplamak veya tek sayfadan olmayanı bulmak

[ecvelance50]

Arkadaşlar kolay gelsin. sanırım imkansızı istiyorum ..
ne istediğimi biliyorum ama hangi yollar var onu bilmiyorum.. yardımcı olabilecek hocalarımız ve arkadaşlarımız vardır umarım

gönderdiğim dosyada MÜŞTERİLER ve İŞLEMLER sayfası mevcut .
müşteri listesinde adı geçen tüm müşterilere ayda kez bakım mecburi ve bu işlemi İŞLEMLER sayfasına kayıt etmekte .
İŞLEMLER sayfasına bakım girdisi dahil olmak üzere devir+parça+revizyon+tahsilat girdileride yapılmakta

bu işlemler ve müşteriler artıkca ben mecburi oldugum bakımların yapılıp yapılmadıgını takip edemez olacagım, bu yüzden bir şekilde bu bakımları takip etmek zorundayım

bana bu konuda yardım lazım..
* devir, bakım, parca, revizyon,tahsilat işlemlerini ayrı sayfalara yapayım dedim bu kezde indirdiğiniz dosyada olan krirete göre sorgulama işlemini EXTRA sayfasında yapamayacagım. bu işlemi yapabilirsem, bakımları indis ile sıralamam münkün gibi görünüyor ...

F1 - Help Lütfen ...

İndir deneme2

Dosyayı indir deneme2

dosya.co

 

[ecvelance50]

Private Sub CommandButton1_Click()
If ComboBox1 <> "" Then
Dim i As Long
Dim sonsat As Long
Dim son As Long
son = Sheets("Müşteriler").Range("C" & Rows.Count).End(3).Row
'Bakim.Range("A2:M65536").ClearContents ' Sayfa1 Temizlemek için
For i = 0 To ListBox1.ListCount - 1
sonsat = Range("B" & Rows.Count).End(xlUp).Row + 1
If ListBox1.Selected(i) = True Then
With Sheets("Bakim")
.Cells(sonsat, "H") = Format(Date, "dd.mm.yyyy")
.Cells(sonsat, "I") = ComboBox1.Text
For k = 2 To son
If ListBox1.List(i, 0) = Sheets("Müşteriler").Cells(k, 3) Then
.Cells(sonsat, "D") = Sheets("Müşteriler").Cells(k, "L")
.Cells(sonsat, "A") = Sheets("Müşteriler").Cells(k, "B")
.Cells(sonsat, "B") = Sheets("Müşteriler").Cells(k, "G")

End If

Next k

End With
End If
Next i
MsgBox " Bakım Borçlandırıldı."
Else
MsgBox "Lütfen Birim Seçiniz...!"
End If
End Sub


yukarıda yazdıgım işlemi farklı bir sayfaya daha nasıl yazdırabilirim?

Bu işlemi, farklı sayafya yazdırıp konuyu açtıgım işlemi oradan yapabilirim sanırım...

 

[ecvelance50]

yardım edebilecek kimse yokmu arkadaşlar ?

 

[ecvelance50]

Arkadaşlar Bu yazdıgım kodu 2 farklı sayfaya nasıl yazıdırabilirim bulamadım yokmu yardım edebilecek bir arkadaşımız

Private Sub CommandButton1_Click()
If ComboBox1 <> "" Then
Dim i As Long
Dim sonsat As Long
Dim son As Long
son = Sheets("Müşteriler").Range("C" & Rows.Count).End(3).Row
'Bakim.Range("A2:M65536").ClearContents ' Sayfa1 Temizlemek için
For i = 0 To ListBox1.ListCount - 1
sonsat = Range("B" & Rows.Count).End(xlUp).Row + 1
If ListBox1.Selected(i) = True Then
With Sheets("Bakim")
.Cells(sonsat, "H") = Format(Date, "dd.mm.yyyy")
.Cells(sonsat, "I") = ComboBox1.Text
For k = 2 To son
If ListBox1.List(i, 0) = Sheets("Müşteriler").Cells(k, 3) Then
.Cells(sonsat, "D") = Sheets("Müşteriler").Cells(k, "L")
.Cells(sonsat, "A") = Sheets("Müşteriler").Cells(k, "B")
.Cells(sonsat, "B") = Sheets("Müşteriler").Cells(k, "G")

End If

Next k

End With
End If
Next i
MsgBox " Bakım Borçlandırıldı."
Else
MsgBox "Lütfen Birim Seçiniz...!"
End If
End Sub

 

[ÖmerFaruk]

Kodlar şu an hangi sayfada işlem görüyor onu anlayamadım.
Zira aşağıdaki kod o an aktif olan sayfanın son boş satırını bulur.

sonsat = Range("B" & Rows.Count).End(xlUp).Row + 1

Devamında da aşağıdaki kodları kullanınca net bir şey yok.

With Sheets("Bakim")
   .Cells(sonsat, "H") = Format(Date, "dd.mm.yyyy")
   .Cells(sonsat, "I") = ComboBox1.Text
   For k = 2 To son
      If ListBox1.List(i, 0) = Sheets("Müşteriler").Cells(k, 3) Then
         .Cells(sonsat, "D") = Sheets("Müşteriler").Cells(k, "L")
         .Cells(sonsat, "A") = Sheets("Müşteriler").Cells(k, "B")
         .Cells(sonsat, "B") = Sheets("Müşteriler").Cells(k, "G")
      End If
   Next k
End With

Sorunuz sadece 2 farklı sayfaya bu kodun nasın uygulanacağı olduğundan ötürü bize sadece tahmin etmek düşüyor

With Sheets("Bakim") satırnızı With Sheets("Diğer sayfanızın adınız yazın")

 

[ecvelance50]

Kodlar şu an hangi sayfada işlem görüyor onu anlayamadım.
Zira aşağıdaki kod o an aktif olan sayfanın son boş satırını bulur.

sonsat = Range("B" & Rows.Count).End(xlUp).Row + 1

Devamında da aşağıdaki kodları kullanınca net bir şey yok.

With Sheets("Bakim")
   .Cells(sonsat, "H") = Format(Date, "dd.mm.yyyy")
   .Cells(sonsat, "I") = ComboBox1.Text
   For k = 2 To son
      If ListBox1.List(i, 0) = Sheets("Müşteriler").Cells(k, 3) Then
         .Cells(sonsat, "D") = Sheets("Müşteriler").Cells(k, "L")
         .Cells(sonsat, "A") = Sheets("Müşteriler").Cells(k, "B")
         .Cells(sonsat, "B") = Sheets("Müşteriler").Cells(k, "G")
      End If
   Next k
End With

Sorunuz sadece 2 farklı sayfaya bu kodun nasın uygulanacağı olduğundan ötürü bize sadece tahmin etmek düşüyor

With Sheets("Bakim") satırnızı With Sheets("Diğer sayfanızın adınız yazın")

Teşekkür ederim o sorunu çözdüm.. Sayfa belirtildiği için almıyormuş ,