Soru Stok Dosyasında Düzenleme

[Cemil İnce]

	Sayın Efendim
Sayfa 1	Logodan aldığımız stok kaydının yarı işlenmiş halinin bir bölümü ( Tamamı yaklaşık 75,000 satır
	ve 2000 ayrı kod.) Yani işleme tutulacak yaklaşık 2000 stok kaydı var.
Sayfa 3	Her stok için yapılmasını istediğimiz düzeltmeler Şöyle
	1 sayfadaki kayıtlarda tarihler karışık idi. Tarih sırasına sokuldu
	yine 1. sayfadaki kalan miktar hanesindeki rakamlar hatalı idi formül uygulanarak düzeltildi
	lütfeder iseniz Ricamız;
	Bu işlevin bütün dosyaya ( yada yeni bir sayfasına) otomatik olarak uygulanması
	Not: Tabiiki biz bunu makro kaydı ile yapmayı denedik ancak döngüyü çalıştıramadık
	Sebep mi? Ben 79 yaşındayım elimden gelen aklımın erdiği bu kadar
	Fazlası biliyorumki sizde var. Verir iseniz çok sevinirim. Mutlu edersiniz.

 

[Muzaffer Ali]

Merhaba.
Dosyanızın ilk halini ve olmasını istediğiniz halini paylaşın ona göre bir kod yazalım.

 

[Cemil İnce]

Sevgili Muzaffer Ekte eklenmiş dosyada iki adet excel sayfası var ilki başlangıçtaki hali ikincisi olmasını istediğim hali
Bende dosyalar zip dosyası halinde eklenmiş gözüküyor
Bu konuda çok yeterli değilim dosyaya ulaşamıyor iseniz eğeğ lütfen bildirin bir başka yolla gönderme imkanı arayalım
ilginiz için içten teşekkürlerimle.

 

[Cemil İnce]

Sevgili Muzaffer sanırım istediğiniz bilgiyi size ulaştıramadım. forumu kullanma konusunda pekde yeterli olmadığımı daha önce bildirmiş idim.
Bir kez de bu yolla deniyorum. Yinede dosyayı size ulaştıramaz isem lütfen bana yol gösterip yardımcı olabilirmisiniz.

 

[RBozkurt]

Dosyaları klasöre kopyalayıp Winrar ile sıkıştırın ve oluşan dosyayı ekleyin.

Yada dosya eklerken CTRL tuşuna basılı tutarak çoklu dosya seçip ekleyiniz.

 

[veyselemre]

Sub testAdoSirala()
    Dim rs As Object, ver, kod$, i&, toplam As Double

    Set rs = CreateObject("ADODB.Recordset")
    Sheets("Sayfa3").Select
    Range("2:" & Rows.Count).ClearContents
    With rs
        .Open "SELECT * FROM [Sayfa1$A2:N] ORDER BY F1,F4,F8 DESC,F11 DESC", _
              "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 Xml;HDR=NO';" & _
              "Data Source=" & ActiveWorkbook.FullName
        Range("A2").CopyFromRecordset rs
    End With
    ver = Range("A2:N" & Cells(Rows.Count, 1).End(3).Row).Value
    kod = ""
    For i = 1 To UBound(ver)
        If ver(i, 1) <> kod Then
            toplam = ver(i, 8) - ver(i, 11)
            kod = ver(i, 1)
        Else
            toplam = toplam + (ver(i, 8) - ver(i, 11))
        End If
        ver(i, 14) = toplam
    Next i
    Range("A2:N" & Cells(Rows.Count, 1).End(3).Row).Value = ver
End Sub

 

[Cemil İnce]

Merhaba.
Dosyanızın ilk halini ve olmasını istediğiniz halini paylaşın ona göre bir kod yazalım.

 

[Muzaffer Ali]

Sayın veyselemrenin tavsiye ettiği kodlar gayet güzel çalışıyor.

Kodları yeni bir Module kopyalayıp çalıştırın.

 

[Cemil İnce]

Sub testAdoSirala()
    Dim rs As Object, ver, kod$, i&, toplam As Double

    Set rs = CreateObject("ADODB.Recordset")
    Sheets("Sayfa3").Select
    Range("2:" & Rows.Count).ClearContents
    With rs
        .Open "SELECT * FROM [Sayfa1$A2:N] ORDER BY F1,F4,F8 DESC,F11 DESC", _
              "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0 Xml;HDR=NO';" & _
              "Data Source=" & ActiveWorkbook.FullName
        Range("A2").CopyFromRecordset rs
    End With
    ver = Range("A2:N" & Cells(Rows.Count, 1).End(3).Row).Value
    kod = ""
    For i = 1 To UBound(ver)
        If ver(i, 1) <> kod Then
            toplam = ver(i, 8) - ver(i, 11)
            kod = ver(i, 1)
        Else
            toplam = toplam + (ver(i, 8) - ver(i, 11))
        End If
        ver(i, 14) = toplam
    Next i
    Range("A2:N" & Cells(Rows.Count, 1).End(3).Row).Value = ver
End Sub

 

[Cemil İnce]

sevgili emre size şaka gibi gelecek ama ben kodu çalıştıramadım. dosyayı bir kez daha size gönderiyorum. çalıştırıp son halini bana gönderebilirmisimniz lütfen.
Bana gönderdiğiniz kodu bir modüle ekleyip çalıştırdım fakat sayfa üçteki data yı sildi son sayfaya geçti.
Nazik ilginiz ve yardım severliğiniz için şükranlarımı sunuyorum. Hiç bir şey beceremiş olsam bile ne gam. Bu benim yetersizliğim.i Sevgiler

 

[veyselemre]

En son eklediğiniz dosyaya kodları ekledim.

 

[Cemil İnce]

En son eklediğiniz dosyaya kodları ekledim.

Bu kadar zaman geçipte olumlu olumsuz bir cevap yazıp şükranlarımı iletemedim. Her ne olur ise olsun içten yardımseverliğiniz için çok teşekkür ediyorum. Son dosyanızı tabiiki aldım. Ancak çalıştıramadım. hatanın bende olduğunu düşü,mdüğümden bu konuda yeteri kadar bilgi ve deneyimim olmdığı için bir süre üzerinde çalışıp hal etmeye çabaladım ama beceremedim.. Geçemediğim konu dosyanın salt okunur olması. sizi rsahatsız etmek istemediğim için web de bu konu ile ilgili bütün dosyaları okudum ama yinede olmadı. Tekrar en içten teşekkürlerimi sunuyorum.

 

[Cemil İnce]