VBA Şartlı RAPOR (YARDIM)

Katılım
2 Şubat 2007
Mesajlar
136
Excel Vers. ve Dili
türkce
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.
 

Orion1

Uzman
Uzman
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.:cool:
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
 
Katılım
2 Şubat 2007
Mesajlar
136
Excel Vers. ve Dili
türkce
t&#351;kk&#252;r ederm orion2 fakat istedi&#287;im gibi deil ben istedi&#287;im e s&#252;tununu raporda g&#246;stermiyck sizinkinde s&#252;t&#252;n g&#246;z&#252;k&#252;yor i&#231;inde veri yok s&#252;t&#252;ve veri olmayacak talebm budur tekrar ilgilenirseniz &#231;ok memnn olurum t&#351;k&#252;rler...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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...
E sütununa sağ click yapın ve Gizle'yi seçiniz.:cool:
 
Katılım
2 Şubat 2007
Mesajlar
136
Excel Vers. ve Dili
türkce
te&#351;ekk&#252;r edrm de bu sayfay&#305; korumaya alacam ba&#351;kalar&#305; kullanacak o nedenle E yi gizlemedm &#231;&#252;nk&#252; gizlemek i&#231;in parola gerek e&#287;er yapabiliyorsan istemedi&#287;im s&#252;tunu g&#246;stermesn genede ilgin i&#231;n t&#351;kk&#252;rler allah raz&#305; olsn...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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...
Gizleyerek E sütunun görünmesini engelliyorduk.Siz istemediğim sütunu göstermesin diyerek neyi kastediyorsunuz?Bunu açıklarmısınız?:cool:
 
Üst