• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Aynı excel dosyası Win10'da farklı Win7 de farklı sonuç gösteriyor?

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
S

salanar

Yeni Üye
Katılım
4 Ağu 2021
Mesajlar
276
Çözümler
1
Aldığı beğeni
68
Excel V
Office 2007 TR
Konu Sahibi
Merhaba,


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.


Textbox4'e başlangıç tarihini, Textbox5'e bitiş tarihini girdikten sonra Windows7 bilgisayarda 20 gün verirken yılbaşınıda çıkarak

Windows10 bilgisayarda 21 gün veriyor. İlk defa böyle birşey yaşıyorum neden yapar?
 
Çözüm
Refaz
RsmT = Join(Application.Transpose(Syf.Range("M1:M549").Value), ",")

Yukardakini silip birde koddaki gibi deneyin.
Yani alttaki kırmızı renklileri ekledim.Diğer textbox4 ede uygulayabilirsiniz doğru ise.

Dim Syf As Worksheet, RsmT As String, ii As Long
For ii = 1 To 519
RsmT = RsmT & "," & Format(Syf.Cells(ii, "M").Value2, "dd.mm.yyyy")
Next
RsmT = Mid(RsmT, 2)


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
İZİN GİR butonuna tıklayın

başlangıç 15.12.2021
bitiş 07.01.2022 yazın

Windows10 ise 21 cikacak

windows7 makine ise 20 gün cikacak
örnek dosya ekledim.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

problem burada ama nasıl çözeceğiz bilmiyorum. dd.mm kısmını d.mm yapınca düzeliyor. Neyegorehesaplansin adlı sayfamızın M sutununda 1.01.2022 oldugu için mi yapmıyor acaba? Oraya 01.01.2022 yaptıgımda kendi değişiyor 1.01.2022 oluyor bunla bi baglantısı var kesinlikle
 
Olumlu oy 0 Negatif oyla
RsmT = Join(Application.Transpose(Syf.Range("M1:M549").Value), ",")

Yukardakini silip birde koddaki gibi deneyin.
Yani alttaki kırmızı renklileri ekledim.Diğer textbox4 ede uygulayabilirsiniz doğru ise.

Dim Syf As Worksheet, RsmT As String, ii As Long
For ii = 1 To 519
RsmT = RsmT & "," & Format(Syf.Cells(ii, "M").Value2, "dd.mm.yyyy")
Next
RsmT = Mid(RsmT, 2)


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Refaz' Alıntı:
RsmT = Join(Application.Transpose(Syf.Range("M1:M549").Value), ",")

Yukardakini silip birde koddaki gibi deneyin.
Yani alttaki kırmızı renklileri ekledim.Diğer textbox4 ede uygulayabilirsiniz doğru ise.

Dim Syf As Worksheet, RsmT As String, ii As Long
For ii = 1 To 519
RsmT = RsmT & "," & Format(Syf.Cells(ii, "M").Value2, "dd.mm.yyyy")
Next
RsmT = Mid(RsmT, 2)


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
20 çıktı hocam:) Eline sağlık
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst