excel 365 de çalışmıyor

[othara]

Arkdaslar 2010 versiyonda hazıladıgım ektediki dosyam excel 365 versiyonunda çalışmadı nedeni ne olabilir.

ilgili dosyam ektedir.

(Yurt dısında kullanılıyor 365)

 

[Merhum İdris SERDAR]

.

Bende Excel 365 İngilizce var. Dosyanız çalıştı.

.

 

[othara]

kullanıcı ingilterede ama türkce 365 versiyon onda çalışmadı

 

[Merhum İdris SERDAR]

.

Çalışmadı da ne oluyor? Macro Güvenliğine baksın.

.

 

[assenucler]

Microsoft 365 ev 64 bit kullanıyorum. Dosyanız bende de çalışıyor.

 

[othara]

.

Çalışmadı da ne oluyor? Macro Güvenliğine baksın.

.

Makro guvenligi nasil olmali

 

[othara]

Microsoft 365 ev 64 bit kullanıyorum. Dosyanız bende de çalışıyor.

Makro ayarlari nasiĺ sizde..

 

[assenucler]

Ekteki gibi:

 

[Trilenium]

GİDERLER adlı Sayfa adınızı değiştirir misiniz.

GİDERLER Yazdığınız için muhtemelen regional settings ayarlarinda türkçe karakterleri tanımıyordur. Kodlarda GÝDERLER olarak gözüküyor olabilir.

Türkçe karakter kullanmadan (kodlarda da sayfa adini değiştirin ) tekrar deneyebilir msiniz.

 

[othara]

D

Ekteki gibi:

AYARLA BU SEKILDE GENE OLMADI

 

[othara]

GİDERLER adlı Sayfa adınızı değiştirir misiniz.

GİDERLER Yazdığınız için muhtemelen regional settings ayarlarinda türkçe karakterleri tanımıyordur. Kodlarda GÝDERLER olarak gözüküyor olabilir.

Türkçe karakter kullanmadan (kodlarda da sayfa adini değiştirin ) tekrar deneyebilir msiniz.

degıstım sayfa ısımlerini olmadı gene



Private Sub CommandButton1_Click()
Dim sat As Long, i As Long, z As Object, liste()
Dim sh As Worksheet
Dim sh2 As Worksheet

Dim Bastarih As Date
Dim Bittarih As Date

Bastarih = [D2].Value
Bittarih = [D3].Value

Set sh = Sheets("GIDERLER")
Set sh2 = Sheets("OZET SAYFA")

With sh2.Range("C9:C38").ClearContents

sat = sh.Cells(Rows.Count, "D").End(xlUp).Row
If sat < 3 Then
MsgBox "Sipariş girişinde veri yok!!" & vbLf & "İşlem iptal oldu!!", vbCritical, "U Y A R I"
Exit Sub
End If
liste = sh.Range("B1" & sh.Cells(Rows.Count, "B").End(xlUp).Row).Value
Set z = CreateObject("scripting.dictionary")
For i = 2 To UBound(liste)
If Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") >= CDate(Bastarih) And Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") <= CDate(Bittarih) Then
If Not z.exists(liste(i, 3)) Then
z.Add liste(i, 3), Nothing
kk = WorksheetFunction.CountA(sh2.[c1:c65000]) + 6
sh2.Cells(kk, "c").Value = liste(i, 3)
End If
End If
Next i
End With

End Sub

 

[Trilenium]

hata kodu nedir?

Ve hangi satır için hata vermektedir.

 

[othara]

Private Sub CommandButton1_Click()
Dim sat As Long, i As Long, z As Object, liste()
Dim sh As Worksheet
Dim sh2 As Worksheet

Dim Bastarih As Date
Dim Bittarih As Date

Bastarih = [D2].Value
Bittarih = [D3].Value

Set sh = Sheets("GIDERLER")
Set sh2 = Sheets("OZET SAYFA")

With sh2.Range("C9:C38").ClearContents

sat = sh.Cells(Rows.Count, "D").End(xlUp).Row
If sat < 3 Then
MsgBox "Sipariş girişinde veri yok!!" & vbLf & "İşlem iptal oldu!!", vbCritical, "U Y A R I"
Exit Sub
End If
liste = sh.Range("B1" & sh.Cells(Rows.Count, "B").End(xlUp).Row).Value
Set z = CreateObject("scripting.dictionary")
For i = 2 To UBound(liste)
If Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") >= CDate(Bastarih) And Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") <= CDate(Bittarih) Then
If Not z.exists(liste(i, 3)) Then
z.Add liste(i, 3), Nothing
kk = WorksheetFunction.CountA(sh2.[c1:c65000]) + 6
sh2.Cells(kk, "c").Value = liste(i, 3)
End If
End If
Next i
End With

End Sub



orjinal kod

 

[othara]

hata kodu nedir?

Ve hangi satır için hata vermektedir.

sizin dedginiz gibi sayfa isimlerinide degiştim hata vermedı ama veride getirmedi..
birde didkkatim su cektı bbende tarih formatı dd.mm.yyyy 365 de mm/dd/yyyyolarak acıyor..
hata vermıyor ama veride getirmiyorr

 

[othara]

 

[othara]

erişebilirlik secenekleri görüldü altta bunlarla alakalı olabilir mi

 

[assenucler]

birde didkkatim su cektı bbende tarih formatı dd.mm.yyyy 365 de mm/dd/yyyyolarak acıyor..
hata vermıyor ama veride getirmiyorr

Yukarıda 14.nci iletide verilen bilgiye göre, "ekteki resimlere bakarak bazı düzeltmeler yapmanız gerekebilir" diye düşünüyorum.

 

[othara]

Yukarıda 14.nci iletide verilen bilgiye göre, "ekteki resimlere bakarak bazı düzeltmeler yapmanız gerekebilir" diye düşünüyorum.

çözüm oldu

cok tesekkur ederim.Bu kısımdan formati degiştim çalıştı.

 

[assenucler]

Sayın othara,

Sorunuzun çözüldüğüne sevindim. Küçük bir yardımım olduysa, mutluluk duyarım.
Sağlık, huzur, mutluluk ve hayırlı kazançlar dilerim.

Saygılar,
Selim