tane45
Altın Üye
- Katılım
- 9 Mart 2017
- Mesajlar
- 16
- Excel Vers. ve Dili
- 2016 TR
- Altın Üyelik Bitiş Tarihi
- 09-08-2025
Merhaba Arkadaşlar,
Aşağıdaki gibi bir makrom var. Bu makroyu google E-Tablolar makrosuna nasıl dönüştürebilirim?Araştırmalarım sonucu google e-tablolar javascript mantığı ile çalışmakta. Bu konuda da hiç bir bilgim yok. Yardımcı olabilecek bir arkadaş var mı acaba?
Aşağıdaki gibi bir makrom var. Bu makroyu google E-Tablolar makrosuna nasıl dönüştürebilirim?Araştırmalarım sonucu google e-tablolar javascript mantığı ile çalışmakta. Bu konuda da hiç bir bilgim yok. Yardımcı olabilecek bir arkadaş var mı acaba?
Kod:
Private Sub OptionButton1_Click() 'ESKİŞEHİR ÜRETİM GİDER de bulunan satırı SATINALMA da en son satıra kopyalıyor
Sheets("SATINALMA").Rows("2:2").copy
son = Sheets("ARŞİV").[a65536].End(3).Row + 1
Sheets("ARŞİV").Cells(son, 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Dim aranan As String, bul As Range, sh As Worksheet
aranan = Sheets("SATINALMA").Range("A2")
For Each sh In Worksheets
Set bul = sh.Range("A2:A66000").Find(aranan, Lookat:=xlWhole)
If Not bul Is Nothing Then
bul.Interior.Color = vbGreen
' bulunamazsa "Sonuç Bulunamadı." diye mesaj göster
Else
End If
Set bul = Nothing
Next
End Sub
Private Sub OptionButton2_Click()
Dim aranan As String, bul As Range, sh As Worksheet
aranan = Sheets("SATINALMA").Range("A2")
For Each sh In Worksheets
Set bul = sh.Range("A2:A66000").Find(aranan, Lookat:=xlWhole)
If Not bul Is Nothing Then
bul.Interior.Color = vbRed
' bulunamazsa "Sonuç Bulunamadı." diye mesaj göster
Else
End If
Set bul = Nothing
Next
End Sub