GPT üzerinde şu istek üretildi. Excel'de adları " Dizüstü ", " Kasa ", " Takım ", " Tümleşik ", " Ekran " olan sayfalarda, başlığı " tckn_yerlesim_yeri " olan sütun bulunacak ve bu sütunda 11 basamaklı yinelenen sayıların bulunduğu satır kırmızı renge boyanacak . Bunun için VBA kodu yaz. Sub TCKN_Yinelenenleri_Kirmiziya_Boya() Dim sayfalar As Variant Dim ws As Worksheet Dim baslikHucresi As Range Dim kontrolSutun As Long Dim sonSatir As Long Dim i As Long Dim sayac As Object Dim deger As String ' Kontrol edilecek sayfa adları sayfalar = Array("Dizüstü", "Kasa", "Takım", "Tümleşik", "Ekran") For Each ws In ThisWorkbook.Worksheets If Not IsError(Application.Match(ws.Name, sayfalar, 0)) Then ' Başlığı bul Set baslikHucresi = ws.R...