Stok Takibi Kod HK. Yardım

Katılım
21 Aralık 2007
Mesajlar
9
Excel Vers. ve Dili
exel2003 turkce
Merhaba Arkadaşlar ;
Kendi düzenlemiş olduğum excel dosyasında bazı eksiklikler ve kod hatalarım var. Konu ile ilgili yardımlarınızı bekliyorum.

excel 2003 ve 2007 için düzenleme yaptım ekledim.
Sormak istediğim bir soruda makro atıyorum fakat kayıt ederken vb kayıt edilemez diyor.Kayıt türü ".xlsm" şeklinde kayıt ediyor sürekli düzenleme hatası diye bir sorun çıkıyor .Neden olabilir?
 

Ekli dosyalar

Katılım
21 Aralık 2007
Mesajlar
9
Excel Vers. ve Dili
exel2003 turkce
Yardım

Arkadaşlar konu için yardımcı olacak arkadaş yok mu ?

Konu için Vba kod ve Formül gerekmektedir.
 
Katılım
21 Aralık 2007
Mesajlar
9
Excel Vers. ve Dili
exel2003 turkce
Merhaba arkadaşlar istemiş olduğum bilgiyi farklı bir siteden temin ettim.Kodları aşağıda eklidir.Bu şekilde bir çalışma ihtiyacı olan arkadaşlar faydalansın.



İYi ÇALIŞMALAR.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D1")) Is Nothing Then Exit Sub
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox(Range("D1") & " Verilerini Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.DisplayAlerts = False
kaplan = 3
For ts = 2 To Sheets("genel giris").Cells(65536, "D").End(xlUp).Row
Sheets("genel giris").Cells(ts, "L") = Sheets("genel giris").Cells(ts, "E") _
& Sheets("genel giris").Cells(ts, "D")
Next
For ts = 2 To Sheets("iade").Cells(65536, "D").End(xlUp).Row
Sheets("iade").Cells(ts, "L") = Sheets("iade").Cells(ts, "E") _
& Sheets("iade").Cells(ts, "D")
Next
Range("B3:L65536").ClearContents
For ts = 2 To Sheets("genel giris").Cells(65536, "E").End(xlUp).Row
If Sheets("genel giris").Cells(ts, "E") = Range("D1") Then
If WorksheetFunction.CountIf(Sheets("genel giris").Range("L2:L" & ts), _
Sheets("genel giris").Cells(ts, "L")) = 1 Then
Cells(kaplan, "B") = Sheets("genel giris").Cells(ts, "B")
Cells(kaplan, "C") = Sheets("genel giris").Cells(ts, "D")
Cells(kaplan, "D") = Sheets("genel giris").Cells(ts, "E")
kaplan = kaplan + 1
End If
End If
Next
For ts = 3 To Cells(65536, "D").End(xlUp).Row
Cells(ts, "I") = Cells(ts, "D") & Cells(ts, "C")
Cells(ts, "E") = WorksheetFunction.SumIf(Sheets("genel giris").Range("L:L"), _
Cells(ts, "I"), Sheets("genel giris").Range("I:I"))
Cells(ts, "F") = WorksheetFunction.SumIf(Sheets("iade").Range("L:L"), _
Cells(ts, "I"), Sheets("iade").Range("I:I"))
Cells(ts, "G") = Cells(ts, "E") - Cells(ts, "F")
Cells(ts, "H") = WorksheetFunction.VLookup(Cells(ts, "C"), Sheets("liste"). _
Range("B2:C65536"), 2, 0)
'Range("A3") = 1
'Range("A3:A" & ts).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
Next
Range("I3:I65536").ClearContents
Sheets("genel giris").Range("L2:L65536").ClearContents
Sheets("iade").Range("L2:L65536").ClearContents
Application.DisplayAlerts = True
MsgBox Range("D1") & " Verilerini Aktardım", vbInformation, "Bitiş"
End Sub
 

Ekli dosyalar

Üst