/*
##Device = Desktops
##Screen = 1281px to higher resolution desktops
*/
@media (min-width: 1281px) {
/* CSS */
}
/*
##Device = Laptops, Desktops
##Screen = B/w 1025px to 1280px
*/
@media (min-width: 1025px) and (max-width: 1280px) {
/* CSS */
}
/*
##Device = Tablets, Ipads (portrait)
##Screen = B/w 768px to 1024px
*/
@media (min-width: 768px) and (max-width: 1024px) and (orientation: portrait) {
/* CSS */
}
/*
##Device = Tablets, Ipads (landscape)
##Screen = B/w 768px to 1024px
*/
@media (min-width: 768px) and (max-width: 1024px) and (orientation: landscape) {
/* CSS */
}
/*
##Device = Low Resolution Tablets, Mobiles (Landscape)
##Screen = B/w 481px to 767px
*/
@media (min-width: 481px) and (max-width: 767px) {
/* CSS */
}
/*
##Device = Most of the Smartphones Mobiles (Portrait)
##Screen = B/w 320px to 479px
*/
@media (min-width: 320px) and (max-width: 480px) {
/* CSS */
}
/* Big Screen */
@media only screen and (min-device-width: 1920px) {
// CSS
Excel VBA
Sub updateComplaintsTitleAndSpeciesName()
Dim i, notFoundCnt, fRow As Integer
Dim totComplaints, totSpecies, totCommon, totNotCommon As Long
Dim found As Range
notFoundCnt = 0
totComplaints = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
totSpecies = Sheets("species").Range("H" & Rows.Count).End(xlUp).Row
Debug.Print "tot complaints: " & totComplaints
Debug.Print "tot species: " & totSpecies
Application.ScreenUpdating = False
' For I = 2 To totComplaints
For i = 2 To totComplaints
speciesID = Sheets(1).Cells(i, 1).Value
' Sheets(1).Cells(i, 4).Value = _
' Sheets(1).Cells(i, 4).Value & " (id. " & Sheets(1).Cells(i, 3).Value & ")"
Set found = Sheets("species").Range("H2:H322").Find(what:=speciesID) 'finds a match
If found Is Nothing Then
notFoundCnt = notFoundCnt + 1
Debug.Print "species id " & speciesID & " not found in species sheet"
Else
Sheets(1).Cells(i, 2).Value = found.Offset(, -7).Value
End If
Next i
Debug.Print "Total species not found " & notFoundCnt
Application.ScreenUpdating = True
End Sub
Sub hebArbNames()
Dim i, notFoundCnt, fRow As Integer
Dim totSpecies, totSpeciesUTF8 As Long
Dim found As Range
Dim speciesName As String
notFoundCnt = 0
totSpecies = Sheets("species").Range("A" & Rows.Count).End(xlUp).Row
totSpeciesUTF8 = Sheets("species-utf8").Range("A" & Rows.Count).End(xlUp).Row
' For i = 2 To totSpecies
For i = 2 To totSpecies
speciesName = Sheets("species").Cells(i, 1).Value
Set found = Sheets("species-utf8").Range("E2:E" & totSpeciesUTF8).Find(what:=speciesName) 'finds a match
If found Is Nothing Then
notFoundCnt = notFoundCnt + 1
Debug.Print "species name " & speciesName & " not found in speciesUTF8 sheet"
Else
' Debug.Print "species name " & speciesName & "heb " & found.Offset(, 4).Value
Sheets(2).Cells(i, 13).Value = found.Offset(, 4).Value
Sheets(2).Cells(i, 14).Value = found.Offset(, 5).Value
Sheets(2).Cells(i, 15).Value = found.Offset(, 6).Value
Sheets(2).Cells(i, 16).Value = found.Offset(, 7).Value
End If
Next i
End Sub
Sub splitNames4SlctLst()
Dim arr() As String
Dim name As Variant
Dim speciesName As Variant
Dim totNotFound, botLnCnt, engLnCnt, hebLnCnt, arbLnCnt As Integer
botLnCnt = 1
engLnCnt = 1
hebLnCnt = 1
arbLnCnt = 1
totNotFound = 0
totSpecies = Sheets("species").Range("A" & Rows.Count).End(xlUp).Row
totPermalinks = Sheets("permalinks").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To totSpecies
speciesName = Trim(Sheets("species").Cells(i, 1).Value)
Set found = Sheets("permalinks").Range("B2:B" & totPermalinks).Find(what:=speciesName) 'finds a match
If found Is Nothing Then
Debug.Print "species name " & speciesName & " not found in permalinks sheet"
totNotFound = totNotFound + 1
GoTo nexti
End If
selectOptionURL = "
"
arr = Split(Sheets("species").Cells(i, 12).Value, ",")
For Each name In arr
engLnCnt = engLnCnt + 1
Sheets("select options lists").Cells(engLnCnt, 2).Value = selectOptionURL & name & "
"
Sheets("Eng Names").Cells(engLnCnt, 1).Value = selectOptionURL & name & "
"
Sheets("Eng Names").Cells(engLnCnt, 2).Value = name
Next
arr = Split(Sheets("species").Cells(i, 13).Value, ",")
For Each name In arr
hebLnCnt = hebLnCnt + 1
Sheets("select options lists").Cells(hebLnCnt, 3).Value = selectOptionURL & name & "
"
Sheets("Heb Names").Cells(hebLnCnt, 1).Value = selectOptionURL & name & "
"
Sheets("Heb Names").Cells(hebLnCnt, 2).Value = name
Next
arr = Split(Sheets("species").Cells(i, 15).Value, ",")
For Each name In arr
arbLnCnt = arbLnCnt + 1
Sheets("select options lists").Cells(arbLnCnt, 4).Value = selectOptionURL & name & "
"
Sheets("Arb Names").Cells(arbLnCnt, 1).Value = selectOptionURL & name & "
"
Sheets("Arb Names").Cells(arbLnCnt, 2).Value = name
Next ' Split the string to an array
nexti:
Next i
Debug.Print "total not found: " & totNotFound
End Sub
Sub permalinks()
Dim arr() As String
Dim i, linkLen As Integer
totPermalinks = Sheets("permalinks").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To totPermalinks
arr = Split(Sheets("permalinks").Cells(i, 1).Value, "|")
Sheets("permalinks").Cells(i, 2).Value = arr(0)
' Sheets("permalinks").Cells(i, 3).Value = arr(1)
linkLen = Len(arr(1))
linkLen = linkLen - 45
Sheets("permalinks").Cells(i, 3).Value = "?plant=" & Right(arr(1), linkLen)
Next i
End Sub
Sub splitHebNames()
Dim arr() As String
Dim name As Variant
Dim speciesName As Variant
Dim totNotFound, botLnCnt, engLnCnt, hebLnCnt, arbLnCnt As Integer
botLnCnt = 1
engLnCnt = 1
hebLnCnt = 1
arbLnCnt = 1
totNotFound = 0
totSpecies = Sheets("species").Range("A" & Rows.Count).End(xlUp).Row
totPermalinks = Sheets("permalinks").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To totSpecies
speciesName = Trim(Sheets("species").Cells(i, 1).Value)
Set found = Sheets("permalinks").Range("B2:B" & totPermalinks).Find(what:=speciesName) 'finds a match
If found Is Nothing Then
Debug.Print "species name " & speciesName & " not found in permalinks sheet"
totNotFound = totNotFound + 1
GoTo nexti
End If
selectOptionURL = "
"
Sheets("Heb Names").Cells(hebLnCnt, 1).Value = selectOptionURL & Trim(name) & "
"
Sheets("Heb Names").Cells(hebLnCnt, 2).Value = Trim(name)
Next
nexti:
Next i
Debug.Print "total not found: " & totNotFound
End Sub
Sub complaintSpecies()
' for all species
' find species id in complaints
' found offset = 0
' while complaints species id = species id
' move species title to toolset associations (found offset)
' add 1 to found offset
' wend
' next species
speciesID = Trim(Sheets("species").Cells(i, 1).Value)
Set found = Sheets("permalinks").Range("B2:B" & totPermalinks).Find(what:=speciesName) 'finds a match
If found Is Nothing Then
Debug.Print "species name " & speciesName & " not found in permalinks sheet"
totNotFound = totNotFound + 1
GoTo nexti
End If
End Sub
Sub plantIdTtlLnk()
Dim i, speciesID, totPermalinks, notFound, foundCnt, foundRow, sameCnt As Integer
totPermalinks = Sheets("plant id ttl lnk").Range("A" & Rows.Count).End(xlUp).Row
totComplaints = Sheets("complaints csv").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To totPermalinks
speciesID = Trim(Sheets("plant id ttl lnk").Cells(i, 1).Value)
Set found = Sheets("complaints csv").Range("E2:E" & totComplaints).Find(what:=speciesID) 'finds a match
If found Is Nothing Then
notFound = notFound + 1
GoTo nexti
End If
foundCnt = foundCnt + 1
foundRow = found.Row
While Sheets("complaints csv").Cells(foundRow, 5).Value = speciesID
If Sheets("complaints csv").Cells(foundRow, 6).Value = Sheets("plant id ttl lnk").Cells(i, 2).Value Then
sameCnt = sameCnt + 1
Else
Sheets("complaints csv").Cells(foundRow, 6).Value = Sheets("plant id ttl lnk").Cells(i, 2).Value
End If
foundRow = foundRow + 1
Wend
nexti:
Next i
Debug.Print " tot found: " & foundCnt
Debug.Print " tot not found: " & notFound
Debug.Print " tot not changed: " & sameCnt
End Sub