Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/03/2014 23:22
Konu Sahibi
mersilen
Yorumlar
3
Okunma
1823
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mersilen

Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Merhabalar
Büyük bir veri grubunu excelde çevirmeye çalışıyorum ama beceremedim, özellikle tarih farkı konusunda sorunlar yaşıyorum
Excel dosyamı Access üzerinde açıp tarih farkı almak istedim onuda beceremedim
iki sütun arasındaki tarih farkını nasıl alabiliriz
Access kullanmaya yabancı birisi olarak soruyorum !!


Access ve Excel dosyası halinde yeniden ekledim
Kullandığım Excel kodu da

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Anne_doğum_sat()
Set s1 = Worksheets("doğum"): Set s2 = Worksheets("tsh 2007"): Set s3 = Worksheets("sayfa1")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With s2.Range("C21:C208000")
For i = 12 To s1.[A11].End(xlDown).Row: değer = s1.Cells(i, "A"):
If değer = 0 Then GoTo Atla
    Set c = .Find(değer, LookIn:=xlValues)
    If Not c Is Nothing Then
  
        firstaddress = c.Address
        Do
'----------------------------------------------------------
If s1.Cells(i, "A") = s2.Cells(c.Row, "C") Then
Set it = s2.Cells(c.Row, "A"):  Set st = s1.Cells(i, "H")
ilk = Format(it.Value, "dd.MM.yy hh:mm"): son = Format(st.Value, "dd.MM.yy hh:mm")
fark = son - ilk
s2.Cells(i, "AH").Value = fark
End If
'----------------------------------------------------------

Set c = .FindNext(c)
            d = c.Address '''
        Loop While Not c Is Nothing And c.Address <> firstaddress
    'Else: GoTo çık:
    'End If
    End If
Atla:
Next i
End With
çık:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Ek Dosyalar
.rar   TSH 5-2.rar (Dosya Boyutu: 39,98 KB / İndirme Sayısı: 5)
Cevapla

cttm98

Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Merhaba,
ekteki dosyaya xlsx dosyasını da eklerseniz daha iyi olur...


Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla

mersilen

Üye
Kullanici Avatari
Üye
2
1
05/10/2011
0
Ankara
Ofis 2003
24/07/2015,11:11
Çözüldü 
Üstteki mesajdaki dosyayı güncelledim


Cevapla

cttm98

Aktif Üye
Kullanici Avatari
Aktif Üye
K.... J....
212
2
24/04/2012
155
İstanbul
Ofis 2007
18/05/2016,18:49
Çözüldü 
Dosya ekte incelerseniz...


Ek Dosyalar
.rar   TSH 5-2cttm98.rar (Dosya Boyutu: 46,88 KB / İndirme Sayısı: 8)
Herkes aynı şeyi düşünüyorsa, hiç kimse yeterince düşünmüyor demektir
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü İf İçinde İki Tarih Veya Saat Arası Sorgusu Kullanılabilirmi burhanb 4 167 25/09/2017, 08:23 burhanb
Çözüldü Farklı Tablolar Arası Tarih Kriterli İşlemler ALTANs 3 309 25/07/2017, 16:08 ALTANs
Çözüldü Excelden Alınan Tarih Ve Sayı Verisinin Düzeltilmesi kadirdursun 3 304 23/07/2017, 21:38 kadirdursun
Çözüldü Kayıt Tarihini Farklı Gününe Göre Artı Tarih Getirme U.ALTUN 4 360 10/07/2017, 11:59 U.ALTUN
Çözüldü İki Tarih Arası Sorgu Problemi AloneX 13 870 26/05/2017, 11:14 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.