Skip to main content

AccessTr.neT


Rucü Davaları Yüklenici Ödemeleri

Rucü Davaları Yüklenici Ödemeleri

Çözüldü #1
Merhaba Arkadaşlar;

Sizin yardımınıza ihtiyacım var,

Personeller daha önce çalışmış oldukları görevine göre yüklenici firmalara rucü yapılacaktır. İlgili personelin işe başlama tarihi - bitiş tarihi giriş yapılıp aynı zamanda Görevi seçildiğinde Excel sayfasındaki ilgili göreve ait yüklenici firmaların ismi getirebilir miyiz?


İlginiz için çok teşekkür ederim.

Aynı zamanda rucü yüklenci firmasına ilgili personeli hem firma isimleri hem tarihler gelmesi gerekiyor,

Çok teşekkür ederim...
.rar Rücu Davaları Yüklenici Ödemeleri.rar (Dosya Boyutu: 10,14 KB | İndirme Sayısı: 3)
Son Düzenleme: 07/11/2023, 09:05, Düzenleyen: cdenktas.
Cevapla
#2
Sonucu Excel dosyada gösterirseniz yardımcı olmaya çalışırız.
Açıklamada ekleyin.
Cevapla
#3
Açıklama olarak Excel içerisine not düştüm...Desteğiniz için çok teşekkür ederim...
.rar Rücu Davaları Yüklenici Ödemeleri.rar (Dosya Boyutu: 11,23 KB | İndirme Sayısı: 2)
Cevapla
#4
Rica ederim.
Tarihler ve görev değişince kod çalışır gifteki gibi.

[Resim: do.php?img=15459]

PHP Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    
Dim i As Longson As Longsay As Long
    Dim syf 
As Worksheet
    
    On Error Resume Next
    Set syf 
ThisWorkbook.Worksheets(Range("I1").Value)
    
On Error GoTo 0
    
    
If Not Intersect(TargetUnion(Range("B2"), Range("F2"), Range("I1"))) Is Nothing Then
        say 
5
        Union
(Range("B5:C" Rows.Count), Range("E5:E" Rows.Count)).Value ""
        
If Trim(Target.Value) <> "" And Not syf Is Nothing Then
            With syf
                
For 2 To .Cells(Rows.Count"A").End(3).Row 1
                    
If (.Cells(i"B").Value2) >= Cells(2"B").Value2 And (.Cells(i"C").Value2 <= Cells(2"F").Value2Then
                        Range
("B" say).Value = .Cells(i"B").Value
                        Range
("C" say).Value = .Cells(i"C").Value
                        Range
("E" say).Value = .Cells(i"A").Value
                        say 
say 1
                    End 
If
                
Next
            End With
        End 
If
    
End If
    
Set syf Nothing
End Sub 
.zip Rücu Davaları Yüklenici Ödemeleri.zip (Dosya Boyutu: 23,55 KB | İndirme Sayısı: 2)
Cevapla
#5
Yada sayfaya bir buton ekleyip kodu ordan çağırma örneği.

[Resim: do.php?img=15460]
.zip Rücu Davaları Yüklenici Ödemeleri.zip (Dosya Boyutu: 27,19 KB | İndirme Sayısı: 8)
Cevapla
#6
(14/11/2023, 23:26)feraz yazdı: Rica ederim.
Tarihler ve görev değişince kod çalışır gifteki gibi.

[Resim: do.php?img=15459]

PHP Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    
Dim i As Longson As Longsay As Long
    Dim syf 
As Worksheet
    
    On Error Resume Next
    Set syf 
ThisWorkbook.Worksheets(Range("I1").Value)
    
On Error GoTo 0
    
    
If Not Intersect(TargetUnion(Range("B2"), Range("F2"), Range("I1"))) Is Nothing Then
        say 
5
        Union
(Range("B5:C" Rows.Count), Range("E5:E" Rows.Count)).Value ""
        
If Trim(Target.Value) <> "" And Not syf Is Nothing Then
            With syf
                
For 2 To .Cells(Rows.Count"A").End(3).Row 1
                    
If (.Cells(i"B").Value2) >= Cells(2"B").Value2 And (.Cells(i"C").Value2 <= Cells(2"F").Value2Then
                        Range
("B" say).Value = .Cells(i"B").Value
                        Range
("C" say).Value = .Cells(i"C").Value
                        Range
("E" say).Value = .Cells(i"A").Value
                        say 
say 1
                    End 
If
                
Next
            End With
        End 
If
    
End If
    
Set syf Nothing
End Sub 

Merhabalar, ilginiz ve emeğiniz için çok teşekkür ederim,

Benim gözümden kaçan bir husus varmış, kusura bakmayın. Kişi iş başlama tarihi örnek yazmış olduğumuz iş başlama -iş bitiş tarihi arasında olduğunda, o satırdaki ilgili firma ismi ve başlangıç tarihi benim gri kısımdaki işe başlangıç tarihi ile başlayacak.

Örneğin kişi işe başlama tarihi 18.05.2005 başladığında

a 16.05.2005 31.05.2005 iki tarih arasında oluyor ve işe başlangıç tarihim 18.05.2005 olup iş bitiş tarihide 31.05.2005 olması gerekiyor..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task