Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Private Sub CommandButton2_Click()
On Error Resume Next
Dim sh As Worksheet
If ComboBox1.Value <> "" Then
Set sh = ThisWorkbook.Sheets(ComboBox1.Text)
Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("I:I"))
sh.Range("I" & Last_Row + 1).Value = "=IF(J" & Last_Row + 1...