Sayfa 1 de adet girilen hücreleri Sayfa 2 de sıralatmak istiyorum...

fakuru · 11 Haziran 2007

Merhaba arkadaşlar;

Benim sorum şu olacak. Elimde bir fiyat listesi var, bu listeyi müşteriye gönderiyoruz, listedeki bazı malları istiyor müşteri, istediği mallar için adet kolonuna istediği adedi giriyor. Benim yapmak istediğim. 1 no' lu sayfada adet kolonunda sayı girilen hücreleri 2 no'lu sayfada sıralatmak... Dosya ektedir... Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım...

N.Ziya Hiçdurmaz · 11 Haziran 2007

Sub rapor()
Set s1 = Sheets("1")
Set s2 = Sheets("2")
For i = 2 To s1.[I65000].End(3).Row
If Range("I" & i) <> "" Then
s1.Range("I" & i).EntireRow.Copy
say = WorksheetFunction.CountA(s2.[a1:a65000]) + 1
s2.Range("A" & say).PasteSpecial
End If
Next
End Sub

Recep İpek · 11 Haziran 2007

Ekli dosyanızı inceleyebilirsiniz.

Kod:

Sub Raporla()
On Error Resume Next
Dim s1, s2 As Object
Set s1 = Sheets("1")
Set s2 = Sheets("2")
s2.[a2:j1000].ClearContents
  
    For j = 2 To s1.[b65536].End(3).Row
        If s1.Cells(j, "I").Value <> "" Then
            sat = s2.[I65536].End(3).Row + 1
            s2.Cells(sat, "a").Value = sat - 1
            Range(s2.Cells(sat, "b"), s2.Cells(sat, "j")).Value = Range(s1.Cells(j, "b"), s1.Cells(j, "j")).Value
        End If
    Next j

MsgBox "Raporlama Bitti." & Chr(10) & Chr(10) & "Kontrol Ediniz!", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
[A1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

fakuru · 11 Haziran 2007

Teşekkürler

Sayın V.Basic For Applications, ilginiz için teşekkür eder, yardımınız için sonsuz şükranlarımı sunarım... Harika oldu...

V.Basic For Applications' Alıntı:
Sub rapor()
Set s1 = Sheets("1")
Set s2 = Sheets("2")
For i = 2 To s1.[I65000].End(3).Row
If Range("I" & i) <> "" Then
s1.Range("I" & i).EntireRow.Copy
say = WorksheetFunction.CountA(s2.[a1:a65000]) + 1
s2.Range("A" & say).PasteSpecial
End If
Next
End Sub

fakuru · 11 Haziran 2007

Sayın ripek;

Emeğiniz için çok teşekkür ederim. Harika olmuş. Bu site ve sakinleri harika...

Çok yaşa www.excel.web.tr

ripek' Alıntı:

Ekli dosyanızı inceleyebilirsiniz.

Kod:

Sub Raporla()
On Error Resume Next
Dim s1, s2 As Object
Set s1 = Sheets("1")
Set s2 = Sheets("2")
s2.[a2:j1000].ClearContents
  
    For j = 2 To s1.[b65536].End(3).Row
        If s1.Cells(j, "I").Value <> "" Then
            sat = s2.[I65536].End(3).Row + 1
            s2.Cells(sat, "a").Value = sat - 1
            Range(s2.Cells(sat, "b"), s2.Cells(sat, "j")).Value = Range(s1.Cells(j, "b"), s1.Cells(j, "j")).Value
        End If
    Next j

MsgBox "Raporlama Bitti." & Chr(10) & Chr(10) & "Kontrol Ediniz!", vbCritical + vbDefaultButton1 + vbOKOnly, "UYARI"
[A1].Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

fakuru · 11 Haziran 2007

Bir soru daha...

Sayın ripek ve sayın V.Basic For Applications; bir sorum daha olacak müsadenizle;

2 no' lu sayfaya raporlattırdığımız siparişi, ayrı bir .xls dosyası olarak export edebilirmiyiz? Örneğin; siparis.xls (2 nolu sayfa export)

N.Ziya Hiçdurmaz · 11 Haziran 2007

Aktif sayfayı belgelerime kaydeder.
Sub aktifsayfakaydet()
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy,hh_mm") & " " & [C6] + ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFileName
End Sub

fakuru · 11 Haziran 2007

Sayın V.Basic For Applications;

dediğinizi yaptım fakat şöyle bir hata ile karşılaştım. ( Run-time error '13': Type mismatch )

İşletim sitemim Windows XP , Office versiyon 2003

teşekkür ederim...

V.Basic For Applications' Alıntı:
Aktif sayfayı belgelerime kaydeder.
Sub aktifsayfakaydet()
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy,hh_mm") & " " & [C6] + ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFileName
End Sub

N.Ziya Hiçdurmaz · 11 Haziran 2007

Bir kaç değişiklik yaptım umarım çalışır.Bende hata vermiyor win xp+office xp
Sub aktifsayfakaydet()
On Error Resume Next
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy") & " " & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFileName
End Sub

fakuru · 11 Haziran 2007

Sayın V.Basic For Applications;

Masaüstüme kayıt etti. İlginiz ve bu hızlı cevaplarınız için size müteşekkirim...

Çok sağolun, Allah razı olsun....

V.Basic For Applications' Alıntı:
Bir kaç değişiklik yaptım umarım çalışır.Bende hata vermiyor win xp+office xp
Sub aktifsayfakaydet()
On Error Resume Next
Dim sFileName As String
sFileName = Format(Now, "dd_mm_yyyy") & " " & ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sFileName
End Sub

Recep İpek · 11 Haziran 2007

Eğer kaydettiğiniz sayfayı Outlook ile ilgili kişiye mail olarak gönderiyorsanız aşağıdaki kodlar size fikir verebilir.

Kod:

Sub Gönder()
On Error Resume Next
Dim App As Outlook.Application
Dim Posta As Outlook.MailItem
Dim MyFile As String

Application.DisplayAlerts = False
ActiveWorkbook.Save
MyFolder = "C:\Genel\"
Sheets("2").Select
MyFile = "SİPARİŞ " & Format(Date, "dd.mm.yyyy") + ".xls"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=MyFolder & MyFile
Sheets("2").Select
Set FSO = Nothing
Set App = CreateObject("Outlook.Application")
Set Posta = App.CreateItem(olMailItem)
    With Posta
      .To = "aaa.bbb@ccc.com"
      '.CC = ""
      '.BCC =
      .Subject = Date & " Sipariş Listesi"
      .Body = "Merhaba" & Chr(13) & Chr(13) & Date & " tarihli sipariş listesi ektedir." & Chr(13) & Chr(13) & "Kolay Gelsin."
      .Attachments.Add MyFolder & MyFile
      .Display
      '.Send
    End With
Application.DisplayAlerts = True
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalı.
End Sub

fakuru · 11 Haziran 2007

Sayın ripek;

Gerçekten de tam yapmak istediğim şeyi düşünmüşsünüz... Harika...

Şöyle 2 problem var; 1. si "C:\Genel\" klasörü içinde dosya ismi sabit kalıyor ve aynı günde sadece 1 dosya kayıt edilebiliyor... Mesela aynı gün 5 müşteriden sipariş aldık ve mail atmak istedik diyelim, 2. siparişte gönder dediğimizde dosyayı önceki dosyanın üzerine kaydediyor. Başka bir isimle kaydedebilmemiz mümkün mü? Yani o gün 5 sipariş alındıysa 5 ide genel klasöründe bulunsun istiyorum. Örneğin; Sipariş1 11.06.2007; Sipariş2 11.06.2007; Sipariş3 11.06.2007; Sipariş4 11.06.2007; Sipariş5 11.06.2007 şeklinde ya da daha başka ayırt edilebilir isimde klasör içinde bulunsun istiyorum.

2. problem mail olarak gönderemiyorum, bende outlook express 6.0 var, Microsoft Outlook X.X Object Library seçili durumda ama malesef gönderemiyorum...

Yardımlarınız için şimdiden teşekkür ederim... Tam yapmak istediğimi düşünmüşsünüz.. Harikasınız...

Recep İpek · 12 Haziran 2007

Dosya adını müşteri ismi,Tarih,Sipariş No olarak değiştirdirdim.Bu şekilde daha rahat takip edebilirsiniz.
Ayrıca siz kendinize göre de uyarlayabilirsiniz.

Verdiğim kodlar Outlook Express'de çalışmaz.Bunu biraz araştırmak gerekiyor.

fakuru · 12 Haziran 2007

Emeklerin için çok teşekkür ederim sayın ripek. Harika bir çalışma oldu. Outlook express için araştırmalara devam edeceğiz

Onu da halledersek tam süper olacak kanımca

Çok teşekkür ederim...

Excel' den dosyayı outlook ile gönderebilmemizi sağlayacak kodu bilen arkadaşlar var mı?

ripek' Alıntı:
Dosya adını müşteri ismi,Tarih,Sipariş No olarak değiştirdirdim.Bu şekilde daha rahat takip edebilirsiniz.
Ayrıca siz kendinize göre de uyarlayabilirsiniz.

Verdiğim kodlar Outlook Express'de çalışmaz.Bunu biraz araştırmak gerekiyor.

fakuru · 14 Haziran 2007

Sipariş No +1 artsın istiyorum...

Sayın ripek ve çok saygın forum arkadaşlarım... Örnekteki dosyamızda sipariş no kısmı var. Gönder butonuna tıkladıktan sonra, sipariş no otomatik olarak +1 olarak artsın istiyorum. Örneğin sipariş no 2 ise gönder butonuna tıkladıktan sonra sipariş no 3 olsun...

Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım.

Recep İpek · 14 Haziran 2007

Merhaba,

B3 hücresinin formatını sayı olarak ayarladıktan sonra aşağıdaki kodları
MyFile = [b1] & " " & [b2] & " " & [b3] & " (" & [b4] & ")" & ".xls"

satırından sonra araya ekleyin.

[b3] = [b3] + 1
ActiveWorkbook.Save

Kolay Gelsin.

fakuru · 14 Haziran 2007

Teşekkür

Sayın ripek; emeğinize sağlık...

ripek' Alıntı:
Merhaba,

B3 hücresinin formatını sayı olarak ayarladıktan sonra aşağıdaki kodları
MyFile = [b1] & " " & [b2] & " " & [b3] & " (" & [b4] & ")" & ".xls"

satırından sonra araya ekleyin.

[b3] = [b3] + 1
ActiveWorkbook.Save

Kolay Gelsin.

fakuru · 14 Haziran 2007

http://www.excel.web.tr/showthread.php?t=19034

Sayın ripek, yukarıdaki linkini verdiğim dosyadaki süzme uygulamasından "içerir" olanını sizin yapmış olduğunuz arabulgetir03 en güncel haline uyarlayabilirmiyiz?

1 no' lu çalışma sayfasında A - H arası ve kendileride dahil olmak üzere kolonlara uygulayabilirmiyiz? Yani plasiyerin malzemeyi kolay bulabilmesi için. En uygun olanda "içerir" olan sanırım...

Teşekkür ederim.

Recep İpek · 15 Haziran 2007

Ekli dosyayı inceleyiniz.

fakuru · 15 Haziran 2007

Emekleriniz ve ilginiz için çok çok teşekkür ederim sayın ripek...

Allah razı olsun...

Sayfa 1 de adet girilen hücreleri Sayfa 2 de sıralatmak istiyorum...

fakuru

N.Ziya Hiçdurmaz

Özel Üye

Recep İpek

fakuru

fakuru

fakuru

N.Ziya Hiçdurmaz

Özel Üye

fakuru

N.Ziya Hiçdurmaz

Özel Üye

fakuru

Recep İpek

fakuru

Recep İpek

fakuru

fakuru

Recep İpek

fakuru

fakuru

Recep İpek

fakuru