Merhabalar,
Aşağıdaki mesut hocamın yazdığı kod ile kapalı dosya dataraw dosyasından tarih aralığı ile veri çekebiliyorum. kodun tarih aralıkları indexdate sayfasından beslenmekte bu sayfayı mümkünse devre dışı bırakmak, değilse tarih aralıklarını dinamik (çoğalıp, azalan) çalışabilir olmasını, F ile L arasındaki koşuldan L koşulunu kaldırarak F sütunundan sonrası dinamik olarak çalışması istiyorum.
Datarav dosyasında 2 yıllık veri tutuluyor. geriye dönük günlere bakılmak için istenilen tarih aralığının girildiğinde girilen tarih aralıklarının çekile bilmesini istiyorum.
Sadece 7 günlük veri çekebiliyorum bunun değişken olarak, 10 günlük 5 günlük veya bir aylıkta tarih girildiğinde girilen tarihlere göre güncellenmesi.
mümkün mü bilemiyorum ama girilen tarih aralıklarının sonunda zamanında, geç ve toplam başlıklarının giriş yapılan aralığın sonuna kaydırması
Umarım anlatabilmişimdir.
Destekleriniz için şimdiden teşekkür ederim.
Saygılarımla.
Sub saaattabv1()
Sheets("Saat Bazlı Uyum").Activate
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("F1:L" & fcount).ClearContents
Range("F1").FormulaR1C1 = "=indexdate!R[1]C[-2]"
Range("F1").Select
Selection.Copy
Range("F1:L1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("f2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(TRIM(RC3)&R1C,'C:\Users\*****\Desktop\HaftalıkPerformans\[DataRaw.xlsx]Sayfa1'!C2:C8,7,0)),"""",VLOOKUP(TRIM(RC3)&R1C,'C:\Users\*****\Desktop\HaftalıkPerformans\[DataRaw.xlsx]Sayfa1'!C2:C8,7,0))"
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("F2").Select
Selection.Copy
Range("F2:L" & fcount).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saat Bazlı Uyum").Activate
End Sub
Sub Renklendirme()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
For i = 2 To fcount
For j = 6 To 12
If Cells(i, j).Value > Cells(i, 5).Value Then
Cells(i, j).Interior.Color = 255
Cells(i, j).Font.ThemeColor = xlThemeColorDark1
Else
Cells(i, j).Interior.Color = 5296274
Cells(i, j).Font.Color = -16777216
End If
Next j
Next i
Range("a1").Select
End Sub
Sub Renklendirmesil()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
Range("a1").Select
End Sub
Aşağıdaki mesut hocamın yazdığı kod ile kapalı dosya dataraw dosyasından tarih aralığı ile veri çekebiliyorum. kodun tarih aralıkları indexdate sayfasından beslenmekte bu sayfayı mümkünse devre dışı bırakmak, değilse tarih aralıklarını dinamik (çoğalıp, azalan) çalışabilir olmasını, F ile L arasındaki koşuldan L koşulunu kaldırarak F sütunundan sonrası dinamik olarak çalışması istiyorum.
Datarav dosyasında 2 yıllık veri tutuluyor. geriye dönük günlere bakılmak için istenilen tarih aralığının girildiğinde girilen tarih aralıklarının çekile bilmesini istiyorum.
Sadece 7 günlük veri çekebiliyorum bunun değişken olarak, 10 günlük 5 günlük veya bir aylıkta tarih girildiğinde girilen tarihlere göre güncellenmesi.
mümkün mü bilemiyorum ama girilen tarih aralıklarının sonunda zamanında, geç ve toplam başlıklarının giriş yapılan aralığın sonuna kaydırması
Umarım anlatabilmişimdir.
Destekleriniz için şimdiden teşekkür ederim.
Saygılarımla.
Sub saaattabv1()
Sheets("Saat Bazlı Uyum").Activate
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("F1:L" & fcount).ClearContents
Range("F1").FormulaR1C1 = "=indexdate!R[1]C[-2]"
Range("F1").Select
Selection.Copy
Range("F1:L1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("F1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("f2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(TRIM(RC3)&R1C,'C:\Users\*****\Desktop\HaftalıkPerformans\[DataRaw.xlsx]Sayfa1'!C2:C8,7,0)),"""",VLOOKUP(TRIM(RC3)&R1C,'C:\Users\*****\Desktop\HaftalıkPerformans\[DataRaw.xlsx]Sayfa1'!C2:C8,7,0))"
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("F2").Select
Selection.Copy
Range("F2:L" & fcount).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Saat Bazlı Uyum").Activate
End Sub
Sub Renklendirme()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
For i = 2 To fcount
For j = 6 To 12
If Cells(i, j).Value > Cells(i, 5).Value Then
Cells(i, j).Interior.Color = 255
Cells(i, j).Font.ThemeColor = xlThemeColorDark1
Else
Cells(i, j).Interior.Color = 5296274
Cells(i, j).Font.Color = -16777216
End If
Next j
Next i
Range("a1").Select
End Sub
Sub Renklendirmesil()
Range("A1").Select
Selection.CurrentRegion.Select
fcount = Selection.CurrentRegion.Rows.Count
Range("f2:l" & fcount).Interior.Color = xlNone
Range("f2:l" & fcount).Font.Color = 0
Range("a1").Select
End Sub
