help in breeding no excel macro to make or cadastramento pick 3 and 4,Prev TopicNext Topic

• dr san

  

  bgonçalves
  Brasil
  Member #92,560
  June 9, 2010
  3,787 Posts
  Offline
  Jun 18, 2024, 9:40 am

  ▲▼

  help in breeding no excel macro to make or cadastramento pick 3 and 4, objective ter always see in two draws some pick3 and pick4, please!!!
• Brock Lee

  

  us
  Member #231,831
  May 4, 2023
  722 Posts
  Offline
  Jun 18, 2024, 2:12 pm

  ▲▼
  In response to dr san

  Quote: Originally posted by dr san on Jun 18, 2024

  help in breeding no excel macro to make or cadastramento pick 3 and 4, objective ter always see in two draws some pick3 and pick4, please!!!

  stop inbreeding, that's nasty.
• AllenB

  

  California
  United States
  Member #167,122
  June 27, 2015
  1,650 Posts
  Offline
  Jun 18, 2024, 4:05 pm

  ▲▼
  In response to Brock Lee

  Quote: Originally posted by Brock Lee on Jun 18, 2024

  stop inbreeding, that's nasty.

  Cadastramento is where the List Makers live.  The whole town is in breeding excel macro's.  It's pretty freaky.
• Brock Lee

  

  us
  Member #231,831
  May 4, 2023
  722 Posts
  Offline
  Jun 18, 2024, 5:18 pm

  ▲▼
  In response to AllenB

  Quote: Originally posted by AllenB on Jun 18, 2024

  Cadastramento is where the List Makers live.  The whole town is in breeding excel macro's.  It's pretty freaky.

  cadastramento is famous for its castratos.
• dr san

  

  bgonçalves
  Brasil
  Member #92,560
  June 9, 2010
  3,787 Posts
  Offline
  Jun 18, 2024, 7:05 pm

  ▲▼

  hello block  or google may be translated incorrectly, or it is intended to be an excel spreadsheet for the results of the pick3 and pick4 games, so when searching for a number it can be found with the search algorithm in the list of two draws
• Artist77

  

  United States
  Member #121,739
  January 16, 2012
  9,047 Posts
  Offline
  Jun 18, 2024, 7:52 pm

  ▲▼
  In response to Brock Lee

  Quote: Originally posted by Brock Lee on Jun 18, 2024

  stop inbreeding, that's nasty.

  I knew that comment was due.

    Do not raise your daughter to look for a knight.  Raise her to use the sword herself.
• Stack47

  

  Kentucky
  United States
  Member #32,651
  February 14, 2006
  10,330 Posts
  Offline
  Jun 18, 2024, 8:31 pm

  ▲▼
  In response to dr san

  Quote: Originally posted by dr san on Jun 18, 2024

  hello block  or google may be translated incorrectly, or it is intended to be an excel spreadsheet for the results of the pick3 and pick4 games, so when searching for a number it can be found with the search algorithm in the list of two draws

  Lots of lottery related subjects were mistranslated in the past year. It's almost like of a few people here intentionally want to stop almost every lottery discussion. Dale Carnegie died about 20 years before the first legal state lottery began drawing numbers. If their point was winning a large jackpot is a way to "win lots of friends" fine, that should be obvious and not much to discuss.

  "When will we ever learn?"
• AllenB

  

  California
  United States
  Member #167,122
  June 27, 2015
  1,650 Posts
  Offline
  Jun 18, 2024, 10:37 pm

  ▲▼
  In response to AllenB

  Quote: Originally posted by AllenB on Jun 18, 2024

  Cadastramento is where the List Makers live.  The whole town is in breeding excel macro's.  It's pretty freaky.

  Cadastramento holds a quarterly parade of Excel macros.  They have been for about 20 years.  Last Quarter one went crazy and piled up so many numbed balls in the street they overflowed into the pool hall.  They are going to need a bunch of new tables and a lot more sticks.  Another one stopped in the intersection and ate itself.  All that was left was a 3 a 6 and a 9.  The Draw that evening was 963.  The whole town got a Box Hit and Billy Bob Swartz got a straight.  The in breeder of that macro lost the whole program and can’t remember which of his stock bred that winner.
• ethanl

  

  Australia
  Member #218,244
  October 24, 2021
  55 Posts
  Offline
  Jun 19, 2024, 6:53 am

  ▲▼

  Sub CheckPredictions()
      Dim wsData As Worksheet
      Dim wsPredictions As Worksheet
      Dim lastRowData As Long
      Dim lastRowPredictions As Long
      Dim i As Long, j As Long
      Dim predictionType As String
      Dim predictionNumber As String
      Dim drawDate As String
      Dim pick3Result As String
      Dim pick4Result As String
      Dim matchFound As Boolean
     
      ' Set worksheets
      Set wsData = ThisWorkbook.Sheets("Data")
      Set wsPredictions = ThisWorkbook.Sheets("Predictions")
     
      ' Find the last row of data
      lastRowData = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
      lastRowPredictions = wsPredictions.Cells(wsPredictions.Rows.Count, 1).End(xlUp).Row
     
      ' Loop through each prediction
      For i = 2 To lastRowPredictions
          predictionType = wsPredictions.Cells(i, 1).Value
          predictionNumber = wsPredictions.Cells(i, 2).Value
          matchFound = False
         
          ' Loop through each draw
          For j = 2 To lastRowData
              drawDate = wsData.Cells(j, 1).Value
              pick3Result = wsData.Cells(j, 2).Value
              pick4Result = wsData.Cells(j, 3).Value
             
              ' Check for a match
              If (predictionType = "Pick 3" And pick3Result = predictionNumber) Or _
                 (predictionType = "Pick 4" And pick4Result = predictionNumber) Then
                  matchFound = True
                  Exit For
              End If
          Next j
         
          ' Output the result in the next column
          If matchFound Then
              wsPredictions.Cells(i, 3).Value = "Match found on " & drawDate
          Else
              wsPredictions.Cells(i, 3).Value = "No match"
          End If
      Next i
     
      MsgBox "Predictions checked!"
  End Sub
• steven10969

  

  Brooklyn
  United States
  Member #201,074
  September 23, 2019
  2 Posts
  Offline
  Jun 19, 2024, 1:57 pm

  ▲▼
  In response to ethanl

  Quote: Originally posted by ethanl on Jun 19, 2024

  Sub CheckPredictions()
      Dim wsData As Worksheet
      Dim wsPredictions As Worksheet
      Dim lastRowData As Long
      Dim lastRowPredictions As Long
      Dim i As Long, j As Long
      Dim predictionType As String
      Dim predictionNumber As String
      Dim drawDate As String
      Dim pick3Result As String
      Dim pick4Result As String
      Dim matchFound As Boolean
     
      ' Set worksheets
      Set wsData = ThisWorkbook.Sheets("Data")
      Set wsPredictions = ThisWorkbook.Sheets("Predictions")
     
      ' Find the last row of data
      lastRowData = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
      lastRowPredictions = wsPredictions.Cells(wsPredictions.Rows.Count, 1).End(xlUp).Row
     
      ' Loop through each prediction
      For i = 2 To lastRowPredictions
          predictionType = wsPredictions.Cells(i, 1).Value
          predictionNumber = wsPredictions.Cells(i, 2).Value
          matchFound = False
         
          ' Loop through each draw
          For j = 2 To lastRowData
              drawDate = wsData.Cells(j, 1).Value
              pick3Result = wsData.Cells(j, 2).Value
              pick4Result = wsData.Cells(j, 3).Value
             
              ' Check for a match
              If (predictionType = "Pick 3" And pick3Result = predictionNumber) Or _
                 (predictionType = "Pick 4" And pick4Result = predictionNumber) Then
                  matchFound = True
                  Exit For
              End If
          Next j
         
          ' Output the result in the next column
          If matchFound Then
              wsPredictions.Cells(i, 3).Value = "Match found on " & drawDate
          Else
              wsPredictions.Cells(i, 3).Value = "No match"
          End If
      Next i
     
      MsgBox "Predictions checked!"
  End Sub

  would like to know how to use this
• dr san

  

  bgonçalves
  Brasil
  Member #92,560
  June 9, 2010
  3,787 Posts
  Offline
  Jun 19, 2024, 2:49 pm

  ▲▼

  hello etanol, perfect, conglatulations, thank you
• lakerben

  

  50

  New Mexico
  United States
  Member #86,096
  January 29, 2010
  25,583 Posts
  Offline
  Jun 20, 2024, 4:00 pm

  ▲▼
  In response to ethanl

  Quote: Originally posted by ethanl on Jun 19, 2024

  Sub CheckPredictions()
      Dim wsData As Worksheet
      Dim wsPredictions As Worksheet
      Dim lastRowData As Long
      Dim lastRowPredictions As Long
      Dim i As Long, j As Long
      Dim predictionType As String
      Dim predictionNumber As String
      Dim drawDate As String
      Dim pick3Result As String
      Dim pick4Result As String
      Dim matchFound As Boolean
     
      ' Set worksheets
      Set wsData = ThisWorkbook.Sheets("Data")
      Set wsPredictions = ThisWorkbook.Sheets("Predictions")
     
      ' Find the last row of data
      lastRowData = wsData.Cells(wsData.Rows.Count, 1).End(xlUp).Row
      lastRowPredictions = wsPredictions.Cells(wsPredictions.Rows.Count, 1).End(xlUp).Row
     
      ' Loop through each prediction
      For i = 2 To lastRowPredictions
          predictionType = wsPredictions.Cells(i, 1).Value
          predictionNumber = wsPredictions.Cells(i, 2).Value
          matchFound = False
         
          ' Loop through each draw
          For j = 2 To lastRowData
              drawDate = wsData.Cells(j, 1).Value
              pick3Result = wsData.Cells(j, 2).Value
              pick4Result = wsData.Cells(j, 3).Value
             
              ' Check for a match
              If (predictionType = "Pick 3" And pick3Result = predictionNumber) Or _
                 (predictionType = "Pick 4" And pick4Result = predictionNumber) Then
                  matchFound = True
                  Exit For
              End If
          Next j
         
          ' Output the result in the next column
          If matchFound Then
              wsPredictions.Cells(i, 3).Value = "Match found on " & drawDate
          Else
              wsPredictions.Cells(i, 3).Value = "No match"
          End If
      Next i
     
      MsgBox "Predictions checked!"
  End Sub

  Finally someone with class! 

   

  Thanks!

  Catch ya layer!