Kredi Kartı Makrolar

[fultgs]

Merhaba arkadaşlar, ben işyeri k.kartı takibi adına bi tablo hazırladım ama makrolar karıştı verileri çekince yanlış yerlere atıyor
giriş bölümündeki sütünlar ile rapor kısmındaki sütünların yerleri farklı lütfen yardımcı olursanız çoook sevinirim..

visual şifresi : 2075

 

[Necdet]

Merhaba,

Şifreli vba'ya kim ne yapsın?

 

[apocalyt]

Hocam şifre yi yazmış

 

[Necdet]

Hocam şifre yi yazmış

Şifreyi görmedim ama yine de çözüm üretecek olan kişiyi zorlamamak gerek diye düşünüyorum.

 

[apocalyt]

mevcut kodlarda ufak bir değişiklik yaptım..kendi kodlarınız yerine bunu kullanın..

Private Sub CommandButton1_Click()


If IsDate(Sheets("RAPOR").Range("A2")) Then
Else
MsgBox "Lütfen Tarih Girin"
GoTo 1
End If

Sheets("RAPOR").Select
ActiveSheet.Unprotect

Sheets("RAPOR").Select
Sheets("RAPOR").Range("A13:H9013").Select
Selection.ClearContents

For i = 2 To 9001


If Sheets("GIRIS").Cells(i, "f") = Sheets("RAPOR").Cells(2, 1) Then

Sheets("GIRIS").Cells(i, "f").Copy
Sheets("RAPOR").Select
Cells(i + 11, 1).PasteSpecial (xlPasteValues)
Sheets("GIRIS").Cells(i, "b").Copy
Sheets("RAPOR").Select
Cells(i + 11, "b").PasteSpecial (xlPasteValues)
Sheets("GIRIS").Cells(i, "c").Copy
Sheets("RAPOR").Select
Cells(i + 11, "c").PasteSpecial (xlPasteValues)
Sheets("GIRIS").Cells(i, "e").Copy
Sheets("RAPOR").Select
Cells(i + 11, "d").PasteSpecial (xlPasteValues)

Sheets("GIRIS").Cells(i, "d").Copy
Sheets("RAPOR").Select
Cells(i + 11, "e").PasteSpecial (xlPasteValues)
Sheets("GIRIS").Cells(i, "g").Copy
Sheets("RAPOR").Select
Cells(i + 11, "g").PasteSpecial (xlPasteValues)
Sheets("GIRIS").Cells(i, "a").Copy
Sheets("RAPOR").Select
Cells(i + 11, "f").PasteSpecial (xlPasteValues)




Application.CutCopyMode = False


End If

Next i


'raporu sıralıyor.......
Sheets("RAPOR").Select
Range("A13:H9014").Select
Selection.Sort Key1:=Range("B13"), Order1:=xlAscending, Key2:=Range("A13" _
), Order2:=xlAscending, Key3:=Range("C13"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
Range("A2").Select



1:
Cells.Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("a1").Select

End Sub

 

[fultgs]

üstadım çok güzel olmuş teşekkür ederim
ama son rapor kısmında benden kaynaklı bi yanlışlık var özür dilerim. tarih e göre rapor al değilde valöre göre veri al nasıl yapabiliriz

 

[apocalyt]

yukarıdaki mesajımda değişikliği yaptım..artık valöre göre rapor alıcak..siz tarih yazdığınız kısma valör ile ilgili bilgiyi girin..kod aynı işlemi yapar..

 

[fultgs]

hocam harikasınız çoook teşekkür ederim elinize emeğinize sağlık..