Değerli üstadlar veri dosyasından tarihi seçerek rapor düzenliyorum.Rapor sayfasına a,b,c,d sütünlarını sıra ile değilde örneğin a,b,d sütunundaki bilgileri aktarmasını istiyorum ekdeki dosyamdaki kodlarımı nasıl düzenleyebilirim.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
VBA Şartlı RAPOR (YARDIM)
- Konbuyu başlatan lansor
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.
Private Sub CommandButton1_Click()
Set sd = Sheets("DATA")
Set sr = Sheets("RAPOR")
sr.Range("a2:f1000").Clear
For sira = 1 To [b65536].End(3).Row
Range("a" & sira + 1) = sira
Next
For sut = 2 To sd.[b65536].End(3).Row
tar1 = CLng(CDate(ComboBox1))
tar2 = CLng(CDate(ComboBox2))
If sd.Range("b" & sut) >= tar1 And sd.Range("b" & sut) <= tar2 Then
sd.Range("a" & sut & ":f" & sut).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
sr.Range("E" & s + 1).Clear
Application.CutCopyMode = False
End If: Next
For sutr = 2 To sr.[b65536].End(3).Row
If WorksheetFunction.CountA(sr.[b2:b65536]) > 100 Then
MsgBox "Seçiminiz 100 Kaydı geçmektedir diğer dilimi seçiniz."
sr.Range("a2:f1000").Clear
Exit Sub
End If
Next
End Sub
Private Sub CommandButton1_Click()
Set sd = Sheets("DATA")
Set sr = Sheets("RAPOR")
sr.Range("a2:f1000").Clear
For sira = 1 To [b65536].End(3).Row
Range("a" & sira + 1) = sira
Next
For sut = 2 To sd.[b65536].End(3).Row
tar1 = CLng(CDate(ComboBox1))
tar2 = CLng(CDate(ComboBox2))
If sd.Range("b" & sut) >= tar1 And sd.Range("b" & sut) <= tar2 Then
sd.Range("a" & sut & ":f" & sut).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
sr.Range("E" & s + 1).Clear
Application.CutCopyMode = False
End If: Next
For sutr = 2 To sr.[b65536].End(3).Row
If WorksheetFunction.CountA(sr.[b2:b65536]) > 100 Then
MsgBox "Seçiminiz 100 Kaydı geçmektedir diğer dilimi seçiniz."
sr.Range("a2:f1000").Clear
Exit Sub
End If
Next
End Sub
tşkkür ederm orion2 fakat istediğim gibi deil ben istediğim e sütununu raporda göstermiyck sizinkinde sütün gözüküyor içinde veri yok sütüve veri olmayacak talebm budur tekrar ilgilenirseniz çok memnn olurum tşkürler...
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
E sütununa sağ click yapın ve Gizle'yi seçiniz.
teşekkür edrm de bu sayfayı korumaya alacam başkaları kullanacak o nedenle E yi gizlemedm çünkü gizlemek için parola gerek eğer yapabiliyorsan istemediğim sütunu göstermesn genede ilgin içn tşkkürler allah razı olsn...
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,254
- Excel Vers. ve Dili
-
Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Gizleyerek E sütunun görünmesini engelliyorduk.Siz istemediğim sütunu göstermesin diyerek neyi kastediyorsunuz?Bunu açıklarmısınız?