1Al2Ver
Altın Üye
- Katılım
- 5 Kasım 2007
- Mesajlar
- 4,713
- Excel Vers. ve Dili
- 64 Bit TR - Microsoft Office 365 - Win11 Home
- Altın Üyelik Bitiş Tarihi
- 04-01-2026
Merhaba,
Yaklaşık 17 Temmuz'dan bu yana bel ve kasık ağrıları ile hareket edemez ve yürüyemez durumdaydım, sürekli yatmak zorunluluğundan bilgisayar kullanamadım ve siteye de giremedim.Şu an daha iyiyim çok şükür,
Dosyamda küçük bir sorunum var,
Sayın Ömer Baran'ın yazdığı bir kod,
Kod, çalışıyor fakat "RAPOR" sayfası H1'deki tarih formatlı tarihi, Genel'e çevirip rakamlara döndürüyor,
Bu olumsuzluk kod'dan kaynaklı diye düşünüyorum, yanılıyor da olabilirim,
H1'in tarih formatında kalması ve değişmemesi için ne yapılabilir ?
Teşekkür ederim.
Yaklaşık 17 Temmuz'dan bu yana bel ve kasık ağrıları ile hareket edemez ve yürüyemez durumdaydım, sürekli yatmak zorunluluğundan bilgisayar kullanamadım ve siteye de giremedim.Şu an daha iyiyim çok şükür,
Dosyamda küçük bir sorunum var,
Sayın Ömer Baran'ın yazdığı bir kod,
Kod, çalışıyor fakat "RAPOR" sayfası H1'deki tarih formatlı tarihi, Genel'e çevirip rakamlara döndürüyor,
Bu olumsuzluk kod'dan kaynaklı diye düşünüyorum, yanılıyor da olabilirim,
H1'in tarih formatında kalması ve değişmemesi için ne yapılabilir ?
Teşekkür ederim.
Kod:
Sub MENÜ_LİSTELE()
Set ra = Sheets("RAPOR"): Set RE = Sheets("REÇETE")
If ra.[C60].End(3).Row > 16 Then ra.Range("A17:I" & ra.[C59].End(3).Row).ClearContents
Select Case ra.[N1]
Case Is = "Düşük": hedef = 5
Case Is = "Orta": hedef = 6
Case Is = "Yüksek": hedef = 7
End Select
For yemek = 3 To ra.[I16].End(3).Row
Cells(ra.[C60].End(3).Row + 1, 2) = ra.Cells(yemek, 9)
ilk = WorksheetFunction.Match(ra.Cells(yemek, 9), RE.Range("B:B"), 0)
son = WorksheetFunction.CountIf(RE.Range("B:B"), ra.Cells(yemek, 9)) + ilk - 1
For resat = ilk To son
rasat = ra.[C60].End(3).Row + 1: ra.Cells(rasat, 3) = RE.Cells(resat, 3)
ra.Cells(rasat, 4) = RE.Cells(resat, 4): ra.Cells(rasat, 5) = RE.Cells(resat, hedef)
If Cells(rasat, 4) = "Gr" Then
ra.Cells(rasat, 6) = ra.[D14] * ra.Cells(rasat, 5) / 1000
ra.Cells(rasat, 8) = (RE.Cells(resat, 8) * RE.Cells(resat, hedef) / 1000) * ra.[D14]
Else
ra.Cells(rasat, 6) = ra.[D14] * ra.Cells(rasat, 5)
ra.Cells(rasat, 8) = (RE.Cells(resat, 8) * RE.Cells(resat, hedef) / 1000) * ra.[D14] * 1000
End If
ra.Cells(rasat, 7) = RE.Cells(resat, 8): ra.Cells(rasat, 9) = RE.Cells(resat, hedef + 5)
Next
Next
With ra.Range("A17:A" & ra.[C60].End(3).Row)
.Formula = "=IF(ISERROR(MATCH(B17,$I$1:$I$14,0)),"""",MAX($A$16:A16)+1)": .Value = .Value
End With
ra.Cells(ra.[C60].End(3).Row + 1, 6) = "TOPLAM"
ra.Cells(ra.[C60].End(3).Row + 1, 8) = _
WorksheetFunction.Sum(ra.Range("H17:H" & ra.[C60].End(3).Row))
ra.Cells(ra.[C60].End(3).Row + 1, 9) = _
WorksheetFunction.Sum(ra.Range("I17:I" & ra.[C60].End(3).Row))
MsgBox "İŞLEM TAMAM"
End Sub