düşeyara makro kod yardım

[askm]

s2.Range("A2:H65000").ClearContents satırı temizlemiyor mu?

 

[TURUNCU28]

s2.Range("A2:H65000").ClearContents satırı temizlemiyor mu?

maalesef temizlemiyor. ama ciro bazlı sayfada yazdım aynısını çalışıyor. firma bazlı sayfada çalışmıyor

 

[askm]

Örnek dosyanızın son halini eklerseniz ordan bakalım.

 

[TURUNCU28]

Örnek dosyanızın son halini eklerseniz ordan bakalım.

tabiki son halini yükledim. bir de arkadaşıma mail attım bakması için ama sanırım 64 bit onun sistemi hata veriyor program açılmıyor hocam

 

[askm]

Modüle içerisindeki kodları aşağıdaki şekilde değiştirin 64 de de 32 de de çalışır.

#If VBA7 And Win64 Then
Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare PtrSafe Function GetForegroundWindow Lib "user32" () As Long
Public Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Public Declare PtrSafe Function SetWindowsHookEx Lib _
"user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
  ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare PtrSafe Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
  ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
#Else
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
  (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)
Public Declare Function SetWindowsHookEx Lib _
"user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _
  ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
  ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
#End If

 

[TURUNCU28]

askm hocam firma bazlı sayfanın temizlenmeme sebebi command butona tıkladığımızda aslında temizliyor ama yine aynı verileri hemen üstüne yazıyor. command buton direk sayfa 2 deki verileri kopyalıyor firma bazlı sayfaya. kriterleri (tarih ve firma adı) dikkate almıyor.

 

[askm]

Örnek dosyanız ektedir.32 ve 64 bitte çalışır durumda.

 

[TURUNCU28]

Örnek dosyanız ektedir.32 ve 64 bitte çalışır durumda.

firma seçip firma bazlı raporla dediğimde
Set FC2 = s1.Range("A1:L" & SonSatir).Find(What:=aranan) burada hata veriyor hocam

 

[askm]

Örnek olarak baş konut yazdım 4 firma listeledi. Sıkıntı çıkmadı bende

 

[TURUNCU28]

Örnek olarak baş konut yazdım 4 firma listeledi. Sıkıntı çıkmadı bende

combobox a "b" yazdığımda direk hata veriyor.
compile error:
can't find project or library diyor hocam

 

[TURUNCU28]

combobox a "b" yazdığımda direk hata veriyor.
compile error:
can't find project or library diyor hocam

askm hocam bendeki sorunu çözdüm. dim fc2 as object dedim. yazdırıyor ama o firmanın tüm verilerini yazıyor. tarih de bağlamak istiyorum

örn: baş konut mayıs ayında yapılanlar
örn : baş konut 2017 de yapılanlar
örn : baş konut 01.01.2017 - 01.06.2017 arasında yapılanlar ( 2 tarih arası yani )
örn : baş konut 14.06.2017 tarihinde yapılanlar gibi.

bunu firma bazlı command butonuna atamamız lazım
yardımcı olurmusunuz.