A Sayfasında Olan Veri B Sayfasında Varsa A Sayfasındaki İlgili Satırı Silme

Abey senin işler sadece bağlantıyla çözülür Olan şeylerde olmuyor

Aynen uygun olduğunuzda uzaktan bağlantı yapalım hocam

(21/11/2020, 18:57)hayalibey yazdı: Satır Yükseklikleri aynı değil  yükseklik olarark hepsi25 olsa
isimler soy isimler ve rütbeler hücrelerde tam çıkmıyor çift tıklayınca sayfa yapısı bozuluyor hücrelere yazılanlar sığsa ve sayfa yapısını korusa
Ocak sayfasına alırken önce rütbeyi kontrol B sütündan alacak rütbe eşit ise sicili önce olan üstte olcak
Sayfa yapısı son dolu satıra kadar sayfa aktif olacak
Bir de F:AI arası boşlukta nereye tıklasam pembe oluyor

(21/11/2020, 19:03)hayalibey yazdı: boşluklarda da tıklayınca pembe oluyor

@hayalibey lütfen bir konuda tek soru sorun, yeni sorular için yeni konu açın, bunlar mevcut konunuzla ilgili değil

---

ayrıca açtığınız konudaki soru cevaplandıysa belirtin cevaplanmışlara taşıyalım.

(21/11/2020, 19:03)hayalibey yazdı:

(21/11/2020, 19:00)feraz yazdı:

(21/11/2020, 18:57)hayalibey yazdı: Zafer Hocam Merhaba

Satır Yükseklikleri aynı değil  yükseklik olarark hepsi25 olsa
isimler soy isimler ve rütbeler hücrelerde tam çıkmıyor çift tıklayınca sayfa yapısı bozuluyor hücrelere yazılanlar sığsa ve sayfa yapısını korusa
Ocak sayfasına alırken önce rütbeyi kontrol B sütündan alacak rütbe eşit ise sicili önce olan üstte olcak
Sayfa yapısı son dolu satıra kadar sayfa aktif olacak
Bir de F:AI arası boşlukta nereye tıklasam pembe oluyor

Abey dünkü yaptıpımız dosya değil mi?
Renkleri ayarlamıştık biliyorum.0 için pembe felan son satır buldurmuştuk vs...

boşluklarda da tıklayınca pembe oluyor

Renk için kod bu.Diğer konudan devam ederiz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)



Dim Açýklama_Ekleme As Comment, aa As String

Dim strText, hucre As Range, hucre2 As Range, son As Long



''''''''''''''''''Renk Kodlarý''''''''''''''''''''''''''''''''''

son = ActiveSheet.Range("Aj" & Rows.Count).End(3).Row

If son < 7 Then Exit Sub

   On Error GoTo son

    If (Target.Column >= 5 And Target.Column <= 35) And (Target.Row > 6 And Target.Row = son) Then

    

    If Target.Value = 0 Then

'    Target.Interior.color = 16750848

    Target.Interior.color = rgbPink

    ElseIf Target.Value = 1 Then

    Target.Interior.color = vbWhite

    End If

    End If

son:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



''''''''''''''''''''''''''''''''Açýklama Bilgisi Kodlarý'''''''''



If Target.Row < 6 Then Exit Sub

If Target.Row > son Then Exit Sub

If Target.Column < 6 Then Exit Sub

If Target.Column > 36 Then Exit Sub

If Cells(Target.Row, 2).Value <> "" And Len(Cells(Target.Row, 2).Value + 0) <> 6 Then Exit Sub



Set Açýklama_Ekleme = Target.Comment

If Not Açýklama_Ekleme Is Nothing Then

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", "Açýklama_Ekleme", Target.Comment.text, , , , 2)

Else

    strText = Application.InputBox("Eklenecek olan mesajý aþaðýya yazýnýz.", "Açýklama_Ekleme", "Açýklama Ekler", , , , 2)

End If



If strText = False Then Exit Sub

'Eger inputbox bossa

If strText = "" Then

    'eger inputbox bossa ve msaj kuutundan evet secilirse

    If MsgBox("Secilen aciklamalar silinsin mi?", vbQuestion + vbYesNo) = vbYes Then

        'eger tek hücre secilmisse

        If Target.Cells.Count = 1 Then

            sil Target

        'eger birden fazla hücre secilmisse

        Else

            For Each hucre2 In Selection

                sil hucre2

            Next

        End If

    End If

'eger inputbox bos degilse

Else

    'eger tek hücre secilmisse

    If Target.Cells.Count = 1 Then

        ekle Target, strText

    'eger birden fazla hücre secilmisse

    Else

        For Each hucre2 In Selection

            ekle hucre2, strText

        Next

    End If

End If



End Sub

Deneyeyim Hocam çok teşekkür ederim