Private Sub CommandButton50_Click()
With Worksheets("Cold").ListObjects("ColdInputEmails").DataBodyRange
.Columns(2).Resize(Evaluate("=COUNTIF(ColdInputEmails[EmailAddress],""<>""&"""")")).Value = TextBox1.Value
End With
End Sub
Ale prečo musí mať tá Tabuľka 1048566 riadkov ?citovat
With Worksheets("Cold").ListObjects("ColdInputEmails").DataBodyRange
.Columns(2).Resize(Evaluate("=COUNTIF(ColdInputEmails[EmailAddress],""<>""&"""")")).Value = TextBox1.Value
End With
End Sub
Ale prečo musí mať tá Tabuľka 1048566 riadkov ?citovat