+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi (/konu-combobox-ta-secilen-ay-in-textbox-a-bir-onceki-ay-in-sonokuma-verisinin-gelmesi.html)
Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi - yenginoglu - 11/12/2023
Sayın Hocalarım,
Ekli çalışmamda Userform2 deki cbHesAylar dan seçili olan ay'ın bir önceki ay'ın SonOkuma hücerindeki veriyi defolt olarak getirmesini istiyorum.
Saygılarımla,
RE: Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi - mozuer - 12/12/2023
Bunu silip,
xtOncekiAy = cbHesAylar - "-1"
Bu kodu ekleyip denermisiniz...
Dim lsRw As Integer, shRw As Integer
Dim lstAy As String
Dim syc As Double
Dim wsh As Worksheet
On Error Resume Next
syc = 0
lstAy = vbNullString
lsRw = Me.cbHesAylar.ListIndex
If lsRw = 0 Then
lstAy = "ARALIK"
Else
lstAy = Me.cbHesAylar.List((lsRw - 1))
Set wsh = ThisWorkbook.Worksheets("BIRLIK-2024")
With wsh
shRw = .Range("A21:A32").Find(What:=lstAy, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows).Row
syc = CDbl(.Range("M" & shRw).Value2)
End With
End If
Me.txtOncekiAy.Value = lstAy
Me.txtIlkOkuma.Value = syc
End Sub
RE: Combobox Ta Seçilen Ay'ın Textbox A Bir Önceki Ay'ın Sonokuma Verisinin Gelmesi - yenginoglu - 13/12/2023
Sayın mozuer,
İlginiz için çok teşekkür ederim. Kod çalışıyor.
Sağlıkla kalın,
Saygılarımla,